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Preface 


This publication is a reference manual that provides 
specific information about the use of the 1BM 5100 
Portable Computer, the APL language, and installation 
planning and procedures. It also provides information 
about forms insertion and ribbon replacement for the 
5103 printer. This publication is intended for users of 
the 5100 and the APL language. 


Prerequisite Publication 


/BM §100 APL Introduction, SA21-9212 


Related Publications 


@ /BM 5100 APL Reference Card, GX21-9214 
@® APL Language, GC26-3847 


@ /BM 5100 Communications Reference Manual, 
SA21-9215 


First Edition (August 1975) 


Changes are continually made to the specifications herein; any such changes will 
be reported in subsequent revisions or technical newsletters. 


Requests for copies of IBM publications should be made to your IBM represen- 
tative or the IBM branch office serving your locality. 


A form for reader's comments is at the back of this publication. If the form 
has been removed, address your comments to IBM Corporation, Publications, 
Dept. 245, Rochester, Minnesota 55901. 
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Chapter 1. Operation 


IBM 5100 PORTABLE COMPUTER OVERVIEW 


The 5100 (Figure 1) is a portable computer. The 5100 has a display screen, key- 
board, a tape unit, switches, indicator lights, and an adapter for black and white 
TV monitors. The display screen and indicator lights communicate information 
to the user. The keyboard and switches allow the user to control the operations 
the system will perform. Figure 2 shows the 5100 console. 


Features available for the 5100 are an auxiliary tape unit, a printer, and a com- 
munications adapter. 


DISPLAY SCREEN 


The display screen (Figure 3} can display 16 lines of information at a time, with 
up to 64 characters iri each line. Input (information supplied by the user) as well 
as output (processed information) is displayed. The bottom two lines (lines 1 and 
0) of the display contain information entered from the keyboard. The cursor 
(flashing horizontal line) indicates where the next input from the keyboard will 
he displayed. If the cursor is moved to a position that already contains a charac- 
ter, the flashing line is replaced by the flashing character. As the 5100 processes 
input, all lines of the display are moved up so that information can be entered on 


the two bottom lines again. The top lines of the display are lost as the lines are 
moved off of the display screen. 


Display Switches indicator Lights 
Screen 


Keyboard 


Figure 1. IBM 5100 Portable Computer 
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Figure 2. The 5100 Console 
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Normally, to distinguish input from output, 
and output is displayed starting at the left e 


Figure 3. The 5100 Display Screen 


SWITCHES 


The switches on the 5100 console (Figure 2) are used for turning power on, re- 
starting the system, and controlling how information is displayed. 


Power On or Restart Procedures 


The following switches are used when turning power on to the system or re- 


starting the system operation. 


BASIC/APL 


Only dual-language machines have this switch. The switch setting determines which 


language will be in operation when power is 


3+2 «<-— Input from the keyboard 


<__________ §4 character positions ———___——____-__» 


ntal line) 


input from the keyboard is indented 
dge of the display screen. 


turned on or after RESTART is 


pressed. If the switch setting is changed after power is turned on or after RESTART 
is pressed, the language in operation will not be changed. i 


Power ON/OFF 


When this switch is in the ON position, power is supplied to the system. The 
system performs internal checks and becomes ready in 15-20 seconds. When the 
switch is put in the OFF position, no power is supplied to the system. 


i A 


Note: The message CLEAR WS is displayed when the system becomes ready. If 
this message is not displayed after 20 seconds, restart the system operation (the 
( og RESTART switch is discussed next). 
RESTART 
This switch restarts the system operation.. When it is pressed, the system performs 
; internal checks and becomes ready in 15-20 seconds. The message CLEAR WS is 
Se displayed when the system is ready. If the system does not display the message 
after 20 seconds, press RESTART again. tf the system does not become ready 
after several attempts, call your service representative. 
The primary uses of this switch are to restart the system operation after a system 
ee malfunction has occurred and to change the language in operation on dual- 
C ) language machines. 
Note: Any information you had stored in the active workspace (see Chapter 2) 
will be lost when RESTART is pressed. 
Display Screen Control 
The following switches are used to control how the information on the display 
screen is displayed. 
L32 64 R32 


This three-position switch (positions 64, L32, and R32) operates as follows: 


@ 64 — Characters are displayed in adjacent positions, and up to 64 characters 
can be shown on each line. 


@ L32 — Characters are displayed in alternate positions (blanks between); only 
the left 32 characters of the 64-character lines are shown. 


@ R32 — Characters are displayed in alternate positions (blanks between); only 
the right 32 characters of the 64-character lines are shown. 

a \ REVERSE DISPLAY 
This switch determines whether the display screen will display light characters 
on a dark background or dark characters on a light background. The brightness 
control may have to be adjusted when the switch setting is changed. 

C } DISPLAY REGISTERS 
This switch is for the service representative’s use when servicing your 5100. 


Note: When you use your 5100, this switch must be in the NORMAL position. 
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KEYBOARD 


The 5100 keyboard (Figure 2) has alphameric and numeric keys. The alphameric C) 
keys are grouped together and are similar to those on a typewriter keyboard. \ 
When the keys are pressed, the characters entered appear in the input line (one 
of the bottom two lines) on the display screen. If either shift key is pressed and 
held, the upper symbol on the key pressed is entered. The top row of alphameric 

keys ¢an be used to enter numbers; however, numbers can be conveniently en- 

tered using the numeric keys on the right side of the keyboard. The arithmetic - 
symbols (+ - + x) located on the top row of the alphameric keyboard can also _) 
be entered using keys to the right of the numeric keys. 


The keyboard contains some keys that perform operations in addition to those | 
performed by a typewriter. These keys are discussed in the following text. Uses 

of the APL language symbols on the keyboard are discussed in the APL language oa 
chapter (Chapter 4) of this manual. | _) 


Attention: srr 
ATTN 


Pressing ATTN (attention) when entering information from the keyboard erases 
everything from the cursor to the end of line 0. 


Pressing ATTN during execution of any expression or user-defined function stops 
system operation at the end of the statement currently being processed. To re- 
start the execution of a user-defined function, enter >[]LC. 


Output that was being generated before the system operation stopped may not be . 
displayed because there is a delay between the execution of the statement that 
causes the output and the actual display of the output. 


When: ATTN is pressed twice during the execution of a statement (either inside 
or outside a user-defined function), the execution of that statement stops im- 
mediately. Also, the message INTERRUPT, the statement, and a caret (A) that 
indicates where the statement was interrupted are displayed. 


Hold rou] 


When pressed once, HOLD causes all processing to stop; when pressed again, it / S 
allows processing to resume. The primary purpose of HOLD is to permit reading \ . 
the display information during an output operation, when the display is changing 

rapidly. When the hold is in effect (HOLD pressed once), only the COPY DISPLAY 

key is active. 


Notes; F 
mae 1. Holding down the CMD key and pressing HOLD is restricted to use by the (_) 
service personnel. 
2. When the hold is in effect (HOLD pressed once), the use of the arithmetic 
keys (+ - + x) on the right side of the keyboard are restricted to use by 
service personnel. 


Execute 


FES 


When this key is pressed, the input line of information on the display screen is 
processed by the system. This key must be pressed for any input to be processed. 


Command 


When this key is pressed and held, pressing an alphameric key in the top row 
causes the APL. command keyword or character above that key to be entered 

in the input line. The command keywords are: )LOAD, )SAVE, )CONT, )LIB,. 
)FNS, )VARS, )COPY, )WSID, )OUTSEL, and )REWIND. 


Note: Holding down the CMD key and pressing HOLD is restricted to use by the 
service personnel. 
Positioning the Cursor and Information on the Display Screen 


O "7 The following keys are used to position the cursor and information on the display 
\ 
, screen: 


Forward Space i | 
Ss 


When this key is pressed once, the cursor moves one position to the right. When 
this key is held down, the cursor continues to move to the right. When the cursor 
reaches the last position on one input line (line 1 or 0), it wraps around to the 
first position on the other input line. 


> 


When the CMD key is held down and the forward space key is pressed once, the 
characters at and to the right of the cursor position (flashing character) are moved 
to the right one position, and a blank character is inserted at the cursor position. 
The cursor does not move. For example: 


Flashing character 
Before the insert operation: 123567 
After the insert operation: 123567 


When these keys are both held down, the characters continue to move to the 
right and blank characters continue to be inserted. 


Note: \f there is a character in position 64 of line 0, the insert operation will 
not work, 


Backspace B 
! - 


When this key is pressed once, the cursor moves one position to the left. When 

it is held down, the cursor continues to move to the left. When the cursor reaches 
position 1 on one input line (line 1 or 0), it wraps around to the last position on 
the other input line. 


Delete oe 
oo 


When the CMD key is held down and the backspace key is pressed once, the 
character at the cursor position (flashing character) is deleted and all characters 
to the right are moved over one position to the left to close up the space. The 
cursor is not moved. For example: 


Before the delete operation: oe 


After the delete operation: 123456 


Flashing character 


When these keys are both held down, the characters at the cursor position con- 
tinue to be deleted and al! the characters to the right are moved to the left. 


Scroll Up 


This key (located above the numeric keys) can be used only in execution mode. 
When this key is pressed once, each displayed line is moved up to the next line. 
As the lines are moved up, the top line is lost as it is moved off the display screen. 
When this key is held down, the lines continue to move up. 


Scroll Down 


This key (located above the numeric keys) can be used only in execution mode. 
cae When the key is pressed once, each displayed line is moved to the next lower line. 
As the lines are moved down, the bottom line is lost as it is moved off the display 
screen. When this key is held down, the lines continue to move down. 


Copy Display \ | 
Xx 


If there is a 5103 Printer, when the CMD key is held down and this key is pressed 
once, all the information presently on the display screen is printed. COPY 
DISPLAY is operational even when the system is in the hold state (the HOLD 
key has been pressed once). 


ro 
° 
Per) 
Ss) 
2 
xe) 
c 


C 


a. Note: The L32 64 R32 switch has no effect on what will be printed. 


INDICATOR LIGHTS 


The 5100 console (Figure 2) has the following indicator fights: 


Process Check 


When on, this light indicates that a system malfunction has occurred. In this case, 
press the RESTART switch to restart the system operation. If the system opera- 
tion cannot be successfully restarted after several attempts, call your service repre- 


sentative. 


. 

) 
£ 
8 
3 
= 


In Process 


When the system is processing input, generally the display screen is blank and the { +) 
IN PROCESS light is on. After the input is. processed, the light goes off, the out- = 
put and flashing cursor are displayed, and the system waits for input. 


Notes: 

1. For some expressions or user-defined functions (see Chapter 5), output is 
generated before the expression or function has completed execution. In such f : 
cases, even though the system is still processing data, the {N PROCESS light ss 
goes off and the output is displayed. The flashing cursor is again displayed 
when the system has finished processing the input (the expression or function 
has completed execution). 

2. If the display screen is blank and the IN PROCESS light is off, check the 
brightness control before calling your service representative. Cc) 
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Chapter 2. System Commands 


SYSTEM OVERVIEW 


@ | The 5100 contains an active workspace, which is the part of internal storage where 

- the user’s data and user-defined functions (programs) are stored. When the power 
is turned off or the RESTART switch is pressed on the 5100, all the data in the 
active workspace is lost. However, the contents of the active workspace can be | 
saved on tape (stored workspace) and then read back into the active workspace 
for use at a later time (see System Command Descriptions in this chapter). The 
contents of the active workspace then exist in both the active workspace and on | 
tape. 


= 
o 
‘> 
o 
> 
(2) 


The tape is your library; that is, it is a place where you can store data for later 
use. Before a tape can be used, it must be formatted. A formatted tape contains 
one or more files where data can be stored. Each file has a file header, which con- 
tains information about the file. See the )LIB system command in this chapter 

for a description of the file header. 


The system commands, which are used to control and provide information about 
the system, are discussed next. 

6S SYSTEM COMMAND DESCRIPTIONS 
The following list shows how system commands are used to contro! and provide 


information about the various parts of the system. Each system command is 
described in detail later in this chapter. 


Commands that Contro! the Active Workspace 


Command Meaning 
)CLEAR Clear the active workspace. 
2 )COPY Copy stored objects (see note 1) into the active workspace. 
©) JERASE Erase global objects (see note 1) from the active workspace. 
}LOAD Replace the active workspace with a stored workspace. 
. )PCOPY Copy stored objects (see note 1) into the active workspace and pro- 
@ \ tect objects in the active workspace from being destroyed. 
}SYMBOLS Change the number of symbols allowed in the active workspace. 
)WSID Change the active workspace 1D. 
C) 
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Commands that Control the Library (Tape) 


Command 
)CONTINUE 

= )DROP 

a4 

$ )MARK 

(@) . 
\SAVE 


Meaning 


Write the contents of the active workspace on tape. The active 
workspace can contain suspended functions. 


Drop a file from the tape. 
Format the tape. 


Write the contents of the active workspace on tape. The active 
workspace cannot contain suspended functions. 


Commands that Provide Information About the System 


Command 
)FNS 

)LIB 

)SI 

)SIV 
)SYMBOLS 
)VARS 


\WSID- 


Command 
JMODE 
JOUTSEL 


)PATCH 


)REWIND 


Notes: 
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Meaning 

Display the names of the user-defined functions. 

Display workspace file headers. 

Display the state indicator. 

Display the state indicator and local names. 

Display the number of symbols allowed in the active workspace. 
Display the names of the global variables. 


Display the active workspace ID. 


Other Commands that Control the System 


Meaning 
Place the 5100 in communications mode. 
Select printer output. 


Apply IMFs (internal machine fix) to the system or recover 
data after a tape error. 


Rewind the tape. 


1. Objects refers to both user-defined functions and variables. 

2. The system commands }CONTINUE, )COPY, )PCOPY, )DROP, }LOAD, MARK, 
)REWIND, and )SAVE will blank the top 8 or 9 lines on the display screen when 
they are used. 


S 


All system commands {and only system commands) have as their first character 
a right parenthesis. Each system command must begin on a new line. Para- 
meters (required or optional information) for the system commands must be 
separated by blanks. System commands cannot be used within APL instructions 
and cannot be used as part of a function definition (function definition is dis- 
cussed in Chapter 6). 


System commands can be entered two ways: 


1. The system command can be entered one character at a time from the 
keyboard. 

2. The system commands )LOAD, )SAVE, )CONT, )LIB, }FNS, )VARS, )COPY, 
)WSID, )OUTSEL and )REWIND can be entered in one operation by holding 
the CMD key while pressing the top-row key just below the label of the 
command you want. 


The parameters, if required, must be entered and the EXECUTE key pressed before 
any operation will take place. Following is an explanation of terms and symbols 
used as parameters for system commands: 


® Device/file number specifies the tape unit and file to be used. The built-in tape 
unit is tape unit 1 and the auxiliary tape unit is tape unit 2. If the value speci- 
fied is less than four digits, tape unit 1 is assumed and the value specified re- 
presents only the file number. If the value specified is four digits, the right- 
most three digits specify the file number and the leftmost digit specifies the 
tape unit. For example: 


Device/File Number Meaning 
1 Tape 1, file 1 
02 Tape 1, file 2 
2002 Tape 2, file 2 


® Workspace ID is any combination of up to 11 alphabetic or numeric characters 
(with no blanks); however, the first character must be alphabetic. If more than 
11 characters are entered, only the first 11 are used. - 


@ Password is any combination of up to eight alphabetic or numeric characters 
(with no blanks). If more than eight characters are entered, only the first 
eight are used. 


@ Object is a user-defined function or variable name. 


® Parameters enclosed in brackets can be optional in certain cases. 
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The )CLEAR Command 


The )CLEAR command clears the active workspace and closes all open files. A ‘ e 
cleared ‘workspace has no valid name, contains no user-defined variables or functions, : 
and no data. The workspace attributes are set to: 


Index origin - 1 
Workspace identification — CLEAR WS = 
Comparison tolerance — 1E713 fo _) 
Printing width — 64 \ 
Printing precision - 5 
Random number seed — 16807 
Data printed — ALL 

When the command is successfully completed, CLEAR WS is displayed. f -) 

Syntax 

)CLEAR 


There are no parameters. 


The )CONTINUE Command | 


The )CONTINUE command writes the contents of the active workspace onto 

tape without changing the contents of the active workspace. This command is oN 
primarily used when the entire stored workspace is to be loaded back into the i) 
active workspace. Workspaces are stored and loaded back into the active work- 
space faster using the )CONTINUE command than using the SAVE command. 
When the command is successfully completed, CONTINUED device/file number 


workspace ID is displayed. | 


Notes: 
1. A clear workspace cannot be written on tape. 
2. A workspace with suspended functions can only be written on tape using the 
JCONTINUE command (it cannot be written to tape using the )SAVE com- 
mand). 
3. )COPY and )PCOPY commands cannot specify stored workspaces that were 
written on tape using the }CONTINUE command. 7 
4. A stored workspace written to tape using the )CONTINUE command cannot be Cc) 
loaded into a 5100 active workspace that is smaller than the original active ‘ 
workspace. 
5. If a stored workspace that was written to tape using the JCONTINUE command 
is loaded into another 5100 with a larger active workspace, the workspace 
available (see the []WA system variable in Chapter 5) is the same as when the 
workspace was written to tape. a 
6. If ATTN is pressed during a }CONTINUE operation, the system operation is ‘ +) 
interrupted and the file is set to unused. 
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Syntax 


C \ J)CONTINUE [device/file number] [workspace 1D] [:password] 


where: 


device/file number (optional) is the number of the tape unit and file on the 
tape where the contents of the active workspace are to be written. If no de- 
q oy vice/file number is specified, the device/file number from which the active 
TZ workspace was loaded or specified by a previous }WSID command is used. 


)COPY 


workspace ID (optional) is the name of the workspace to be stored. This 
name must match the workspace ID of both the active workspace and the 
file to be used on the tape, unless the file is marked unused. If the file is 
as marked unused, the active workspace ID and tape file workspace ID are changed 
¢ ) to this workspace 1D. If no name is specified in the command, the name of 
the active workspace is used. 


:password (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. This sequence of characters 
must be matched when the stored workspace is to be read back into the active 
workspace. If no workspace 1D or password is entered, the password associa- 
ted with the active workspace (if any) is assigned to the workspace being 
stored. If just the workspace ID and no password is entered, any password associated | 
with the active workspace is not used. 


C is The )COPY Command 


The )COPY command copies all or specified global objects from a stored work- 
space to the active workspace. Only objects in stored workspaces that were 
written on tape with the SAVE command can be copied. When the command 
is successfully completed, COPIED device/file number workspace |D is displayed. 


Notes: 
1. If the active workspace contains suspended functions, objects cannot be copied 
into it. 


2. If the ATTN key is pressed during a })COPY operation, the system operation is 
interrupted and the amount of information copied into the active workspace 
is unpredictable. 


\ 
¢ Syntax 


)COPY device/file number workspace !D :password [object name(s) ] 


where: 


device/file number is the number of the tape unit and workspace file the ob- 
jects are copied from. 


\ 
ie 


workspace ID is the name of the stored workspace on tape. 


password is the security password assigned by a previous )WSID or )SAVE 
command. If no password was assigned previously, a password cannot be 


specified by this command. C) 
object name(s) (optional) is the name of the global object(s) to be copied from 


the designated stored workspace. If this parameter is omitted, all global ob- 
jects in the designated stored workspace are copied. 


| ie 
The )DROP Command U) 


The )DROP command marks a specified file unused. After the file has been 
marked unused, the data in the file can no longer be read from the tape. When 
the command is successfully completed, DROPPED device/file number file ID is 
displayed. 


Syntax 


)DROP device/file number [file 1D] 
where: 


device/file number is the number of the tape unit and the file on the tape. 


| file, ID (optional) is the name of the stored workspace file to be marked unused. 
If the file number specified is a data file, any file ID specified is ignored. 


The )ERASE Command S 


The )ERASE command erases the named global objects from the active work- 
space.; There is no message displayed at the successful completion of the com- 
mand. 


Notes. 
1. When a pendent function (see Chapter 7) is erased, the response S| DAMAGE 
is issued. 
2. If the object being erased is a shared variable (see Chapter 8), the shared vari- 
able will be retracted. 
3. Even after the object is erased, the name remains in the symbol table (the 
| part of the active workspace that contains all the symbols used). eS 


Syntax 


JERASE object name(s) 


where: ( +) 


object name(s) are global names separated by blanks. 
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The )FNS Command 
( j The )FNS command displays the names of all global user-defined functions in the 
i. active workspace. The functions are listed alphabetically. If the character para- | 
meter is specified, the names are displayed beginning with the specified character 
or character sequence. 


SAY Note: You can interrupt the )FNS command by pressing the ATTN key. 
C) 
Syntax 
)FNS [character(s)] 


Cs 4 where: 
f 


character(s) (optional) is any sequence of alphabetic and numeric characters 
that starts with an alphabetic character and contains no blanks. This sequence 
of characters determines the starting point for an alphabetic listing. 


The )LIB Command 


The )LIB command displays the file headers of the files on tape (library). The 
file header contains the following information: 


© File number. The files on tape are numbered sequentially, starting with 1, 


C / @ File 1D. The file 1D can be from 1 to 17 characters. If the file contains a 
stored workspace, the file ID is the same as the stored workspace ID. 


@ File type. The file type is a 2-digit code; the following chart gives the mean- 
ing of each code: 


File Type Description 

00 Unused file 

01 Interchange data file (see Chapter 8) 

02 General interchange data file (see Chapter 8) 
C / ee 03 . BASIC source file . | 

04 BASIC workspace file 

05 BASIC keys file | 
C) 06 APL continued file (see CONTINUE command in this 

chapter) 
07 APL saved file (see SAVE command in this chapter) 


File Type Description 


08 APL internal data format file (see Chapter 8} S 
16 Patch and tape recovery file : 

17 Diagnostic file 

19 IMF file C) 
72 Storage dump file “ 


@ Size of the file. The files are formatted in increments of 1024-byte blocks of 
storage. 


@ Number of unused contiguous 1024-byte blocks of storage in the file. C) 


@ Nu ber of defective records (512-byte blocks) in the file; an asterisk (*) is 
displayed if there are more than nine defective records. 


Note: This value can indicate when you should relocate a file to avoid loss of 
data:due to defective areas on the tape. 


Following is an example of a file header: 


006 FILES O7 010,001 0 

File feces i 
Size of the file © 
Available storage 

Number of defective records 

File {D 

File number 


The )LIB command operation can be interrupted by pressing the ATTN key. 


Syntax i) 


)LIB [device/file number] 


where: 


device/file number (optional) is the number of the tape unit and the starting f + 


file number. All file headers from that file to the end of the tape are displayed. 

If no entry is made, the display begins with the first file following the file you 

are currently positioned at on tape unit 1. For tape unit 2, the entry 2000 will 

display the file headers beginning with the first file following the file you are 

currently positioned at on tape unit 2. S 
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The )LOAD Command 


C , The )LOAD command loads the contents of a stored workspace from the tape 

wf into the active workspace, completely replacing the contents that were in the 
active workspace. When the command is successfully completed, LOADED 
device/file number workspace ID is displayed. 


Note: \f the ATTN key is pressed during.a load operation, the system operation 
C . is interrupted and the active workspace is cleared. 


iN 
Se 


Syntax 


JLOAD device/file number workspace ID :password 


C ) where: 


. device/file number is the number of the tape unit and the number of the file 
on the tape. 


workspace ID is the name of the stored workspace. 


:password is the security password assigned to the stored workspace by a pre- 
vious )WSID, )JCONTINUE, or JSAVE command. If no password was pre- 
viously assigned, a password cannot be specified. If a password was assigned 
to the stored workspace but is not specified, or if it is incorrectly specified 
for this command, the error message WS LOCKED is displayed. 


The )MARK Command 


The MARK command formats the tape so that the active workspace or data 
can be saved on it. Each )MARK command formats a certain. number of files 
to a specified size, Additional files of different sizes can be formatted by using 
additional JMARK commands. 


When the operation is successfully completed, MARKED 
number of the last file marked size of the last file marked is displayed. 


Notes: 
1. The ATTN key is not operative during the JMARK command operation. 
an 2. If the message ALREADY MARKED is displayed after a }MARK command 
C ; was issued, the specified file already exists on the tape. To re-mark the 
specified file, enter GO. If the file is not to be re-marked, press EXECUTE 
to continue. 


' CAUTION 
Cy if an existing file on tape is re-marked, the original information in the re-marked 
C file and the existing files following the re-marked file cannot be used again. 
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Syntax 


)MARK size number of files to mark starting file number [device] 
where: 


size is an integer specifying the size of each file in 1024-byte (1K) blocks of 
storage. 


The following formulas can be used to determine what size a file should be 
marked. The formula for a workspace file (the contents of the active workspace 
written to tape with a SAVE or )CONTINUE command) is 

MAXSIZE= 3+[ (CLEAR-ACTIVE)+1024, where: 


@ MAXSIZE is the maximum amount of tape storage (number of 1024-byte 
blocks) that would be required to write the contents of the active workspace 
to tape. 


@ CLEAR is the value of [WA (see Chapter 5) in a clear workspace. 


@ ACTIVE is the value of [JWA just before the contents of the active workspace 
are written to tape. 


The formula for a data file (data written to tape using an APL shared variable 
~see Chapter 8) when all of the data is contained in the active workspace is 
MAXSIZE= [ (WITHOUT-WITH) + 1024, where: 


@ MAXSIZE is the maximum amount of tape storage (number of 1024-byte 
blocks) required to write the data to tape. 


@ WITH is the value of [WA (see Chapter 5) with the data in the active work- 
space. - 


@ WITHOUT is the value of [WA before any data to be written to tape was 
stored in the active workspace. 


There is no formula for determining what size to mark a data file when the data 
is written to tape as it is entered from the keyboard. The amount of tape storage 
required depends upon how much data is entered from the keyboard and what 
type of data is used. For information on how many bytes of storage are required 
by the various types of data, see Storage Considerations in Chapter 9. 


r_of fil tk is an integer specifying the number of files of the 
specified size to format. 


starting file number is an integer specifying the file number where formatting 
is to start. 


device (optional) specifies the tape unit that contains the tape to be formatted. 
An entry of 1 specifies tape unit 1 and 2 specifies tape unit 2. If no entry is 
made, tape unit 1 is assumed. 


To format a tape for four 12K files, two 16K files, and three 10K files, the 
following commands are required: 


ic )MARK 12 4 1 


JMARK 16 2 5 Starting file number 


)MARK 10 3 7 


The MODE Command 
The )MODE command is used to load the 5100 communications program from a 
tape mounted in tape drive 1 and to place the system in communications mode 


= (see /BM 5100 Communications Reference Manual, SA21-9215). When the system 
< y, is in communications mode, APL is no longer available. 


Syntax 


)MODE COM 


The )OUTSEL Command 


The )OUTSEL command specifies which data on the display will go to the printer. 


é ) Syntax 


JOUTSEL [option] 
where: 


option is one of the following: 


@ When ALL is specified, all subsequent information that is displayed will be 
printed. 


@ When OUT is specified, only the output is sent to the printer; input is dis- 
played, but it does not go to the printer. 


( ) @ When OFF is specified, none of the information displayed is printed, unless 
it is assigned to an APL shared variable used by the printer (see Chapter 7). 


If no parameter is specified, ALL is assumed. After a )LOAD or )CLEAR com- 
, mand or when the machine is first turned on, the ALL option is active. 
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The PATCH Command 


The following is a list of the uses of this command. This command is used in con- 
junction with specially devised programs on a tape cartridge supplied with the 5100. 
The uses are described in detail, following the list: 


Copy IMFs (internal machine fix), the Copy IMF program, and the Load IMF 
program onto another tape cartridge. 


Load IMFs for the system program into the active workspace, then make the APL 
language available again. 


Display the EC version of each interpreter module. 


Recover data on tape when tape read errors (ERROR 007 ddd—see Chapter 11) 
occur during use of one of the following files: 


1. Interchange (file type 01) 

2. General interchange (file type 02) 

3. BASIC source (file type 03) 

4. APL internal data format (file type 08) 


Copy the contents of one tape cartridge to another tape cartridge. 


The supplied tape cartridge contains the following files: 


File 1. | The programs that copy or load IMFs and the program that displays 
interpreter module EC versions. 


File 2. The IMFs for the 5100. 
File 3. The Tape Recovery program. 
File 4. The Tape Copy program. 


File 5. _ APL aids. This is a saved workspace file (WSID=APLAIDS) that con- 
tains the following four functions: 


1. AATRACE—Traces all the statements in a specified user-defined function. 


2. AATRACEALL—Traces the first executable statement of each user- 
defined function currently in the active workspace. 


3.  AATRACEOFF—Turns off all tracing. 


4. AASHARED—Displays the shared variable names currently in the active 
workspace. 


The AATRACE function requires as its right argument the name of the user- 
defined function to be traced enclosed in single quotes. The other functions 
do not require any arguments. 


Tr 
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This workspace file also contains the following five variables that describe the func- 
tions in the workspace: 


1. DESCRIBE 

2. DESCRIBEAATRACE 

3. DESCRIBEAATRACEALL 

4. DESCRIBEAATRACEOFF 
> 5.  DESCRIBEAASHARED 


These functions and variables can be copied into the active workspace using the 
JCOPY command. For example, to copy the AA TRACE function into the active 
workspace: 


COPY S&S APLAING AATRACE 
Note: The )PATCH command is not required for using the functions in file 5. 


When the )PATCH command is used with the tape cartridge inserted in tape drive 1, 
the following options are displayed: 


ENTER OPTION NO. 
COPY IMF TAPE 
LOAD IMF’S 

DISP EC VER. 
KEY-ENTER IMF 
END OF JOB 
TAPE RECOVERY 
TAPE COPY PGM 


ee nnernerrnnems Flashing Cursor 


NOOPWN> 
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To select an option, enter an option number (1 through 7). If an option number 
‘ other than those displayed is entered, the options will be displayed again. Once 
( y the option number has been entered, additional prompting messages might be dis- 
Ne played for the selected option. 


Option 1. Copy IMF Tape 


ae 
oO 
be 
ft 
a. 


C neh The Copy IMF Tape option allows the following files to be copied from the tape: 


@ File 1, which contains the Copy IMF program, Load IMF program, and Display 
EC Version program. 


@ File 2, which contains the IMFs for the 5100. The {MFs can be copied from the 


C \ file as follows: 
| 


1. Copy all IMFs that apply to APL. 


2. Copy all IMFs for APL that apply to the 5100 being used. 


3. Copy specific IMFs by problem number. 


4. Copy specified IMFs by problem numbers that apply to the 5100 being 
used. (If a problem number is specified that does not apply to the 5100 
being used, it is not copied.) 


Note: The tape onto which files 1 and 2 are to be copied must be marked before 
a the copy operation is done. Use the )LIB command to determine what size the 
( Ff files should be marked. 


The Copy IMF Tape program will issue prompting messages and wait for the user 
to respond to each message. 


Copying IMFs allows tape cartridges containing only the IMFs that apply to your 
5100 to be created. 


Option 2. Load IMFs 


The Load IMFs option allows IMFs to be loaded into the system program and then 
makes the APL language available again. IMFs can be loaded as follows: 


C } © Load all IMFs that apply to the 5100 being used. 


@ Load specified {MFs by problem numbers that apply to the 5100 being used. 
(If a problem number is specified that does not apply to the 5100 being used, it 
is not loaded.) 


« * The Load IMFs program will issue prompting messages and wait for the user to respond 
sod to each message. 


Note: The IMFs occupy storage (space) in the active workspace and can also reduce 
the performance of your 5100 significantly; therefore, {MFs should not be applied 
ie to your 5100 if the problem does not affect your operation or if the problem can be 
C ; circumvented by an APL statement or command. The IMFs will remain in the active 
ae workspace until the power is turned off or RESTART is pressed. 


Scent penn! 
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Option 3. Disp EC Ver. 


The Disp EC Ver. option is primarily for your service representative’s use. This i +) 
option will display a 4-digit code for each interpreter module. The first two digits = 
are the module identification and the next two digits are the EC version. 


The EC Version program will issue prompting messages and wait for the user to 
respond to each message. 


Option.4. Key-Enter IMF 
This option allows the service representative to enter IMFs from the keyboard. The 
IMF is then written to file 2 on the tape containing the IMFs. The IMF can then be 
loaded or copied from the tape. . +) 


Option 5. End of Job 


This option causes the APL language to be available again. 


Option 6. Tape Recovery 
The Tape Recovery option allows the user to recover data from a file or files on 
which tape read errors (ERROR 007 ddd) are occurring. The Tape Recovery Pro- 
gram can be used on the following files: 
@ tnterchange (file type 01) _) 
@ General interchange (file type 02) 
@ BASIC source (file type 03) 


® APL internal data format (file type 08) 


The Tape Recovery program will issue prompting messages and wait for the user to 
respond to each message. 


The Tape Recovery program will recover as much data as possible in the file; some of 


the data in the record where the tape read errors occur is not recoverable; some of : 
the data that precedes and follows that record may also not be recoverable. 7 > 
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Option 7. Tape Copy Program 
The Tape Copy option allows you to copy the contents (up to the end of marked 
tape) of one cartridge to another cartridge. Tape copy can utilize the auxiliary tape 


drive, if available. Tape copy also marks the tape being copied to. 


Tape copy issues prompts and waits for you to respond to each prompt. 


Syntax 


)PATCH 


There are no parameters. 


The )PCOPY Command 


The )PCOPY command copies all or specified global objects from a stored work- 
space into the active workspace. It is the same as the )JCOPY command, except 
that if the object name already exists in the active workspace, it is not copied from 
a stored workspace. Therefore, the object in the active workspace is protected 
from being overlaid and destroyed. Only objects in stored workspaces that were 
written on tape with the )SAVE command can be copied. 


When the command is successfully completed, COPIED device/file number 
workspace ID is displayed. 


Notes: 
1. If the active workspace contains suspended functions, objects cannot be copied 
into it. 


2. If the ATTN key is pressed during a )PCOPY operation, the system operation is 
interrupted and the amount of information copied into the active workspace is 
unpredictable. 

3. If the specified object name already exists in the active workspace, the message 
NOT COPIED: object name is also displayed. 
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Syntax 


)PCOPY device/file number workspace ID : password [object name(s)] 


where: 


device/file number is the number of the tape unit and the stored workspace file. 


workspace ID is the name of the stored workspace on the tape. 


Q 
2 
= 
s 
Mu 
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:password is the security password assigned by the previous )WSID or SAVE 
command. If no password was assigned, a password cannot be specified by 
this command. 


object name(s) (optional) is the name of the global object(s) to be copied from 
the designated stored workspace. If omitted, all global objects in the designated 
stored workspace are copied, except those already in the active workspace (if 
any). 


The )REWIND Command 


The )REWIND command rewinds the specified tape. There is no message displayed 
at the. successful completion of this command. 


Syntax 


)REWIND [device number] 


where: 


device number (optional) is the tape (on drive 1 or 2) to be rewound. If the para- 
meter is omitted, tape 1 is rewound. 


The )SAVE Command 


The )SAVE command writes the contents of the active workspace onto tape with- 
out changing the contents of the active workspace. This command is used when 
objects. will be copied from the stored workspace back into the active workspace. 
When this command is successfully completed, SAVED device/file number 
workspace ID is displayed. 


Notes: 

1. Aclear workspace or a workspace with suspended function cannot be written on 
tape using the SAVE command; however, a workspace with suspended functions 
can be written to tape using the )CONTINUE command. 

2. The )COPY and )PCOPY commands can specify stored workspaces that were 
written on tape only if the SAVE command was used. 

3. Depending on the amount of data in the stored workspace, a stored workspace 
that was written to tape using the SAVE command can be loaded into another 
5100 with a smaller active workspace. 

4. If ATTN is pressed during a SAVE operation, the system operation is interrupted 
and the file is set to unused. 
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Syntax 


a ! JSAVE [device/file number] [workspace ID] [:password] 


where: 


device/file number (optional) is the number of the tape unit and file on the 
pel tape where the contents of the active workspace are to be written. If no 


C ) device/file number is specified, the device/file number from which the active 
: workspace was joaded or which was specified by a previous )WSID command 
, is used, 


workspace ID (optional) is the name of the workspace to be stored. This 


GOS, name must match the workspace ID of both the active workspace and the file 
C ) to be used on the tape unless the file is marked unused. If the file is marked 
_" unused, the active workspace and tape file workspace !D will be changed to 


this workspace 1D. If no name is specified in the command, the name of the 
active workspace is used. 


:password (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. This sequence of characters 
must be matched when the stored workspace is to be read back into the active 
workspace. If no workspace !D or password is entered, the password associated 
with the active workspace (if any) is assigned to the workspace being stored. 

If just the workspace ID and no password is entered, any password associated 
with the active workspace is not used. 


C > The )SI Command 


The )SI command displays the names of the suspended and pendent user-defined 
functions (see State /ndicator in Chapter 7). The suspended functions are indicated 
by an *, with the most recently suspended function listed first, followed by the 
next most recently suspended function, and so on. 


Syntax 
)S! 
pons, There are no parameters. 
c 
The )SIV Command 
The )SIV command displays the names of the suspended and pendent user- 
Ses ; defined functions (see State Indicator in Chapter 7) and the names local to 
C ) each function. The suspended functions are indicated by an *, with the most 
set recently suspended function listed first, followed by the next most recently 
: suspended function, and so on. 
f iN 
fone 
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Syntax 


)SIV 


There are no parameters. 


The )SYMBOLS Command 


The )SYMBOLS command is used to change or display the number of symbols 
(variable names, function names, and labels) allowed in the active workspace. The 
number of symbols allowed can only be changed immediately after a )CLEAR com- 
mand has been issued. In a clear workspace, the number of symbols allowed is 
initially set to 125 by the 5100. When the command is used to display the number 
of symbols allowed, IS the number of symbols allowed is displayed. When the com- 
mand is used to change the number of symbols allowed, WAS the former number of 


symbols allowed is displayed. 


Note: When a stored workspace is loaded into the active workspace, the number 
of symbols allowed in the active workspace will be the same as when the stored 
workspace was written to tape. 


Syntax 


)SYMBOLS [n] 

where: 
(optional) is an integer equal to or greater than 26 that specifies the number of 
symbols allowed in the active workspace; however, the number of symbols specified 


cannot exceed the active workspace size (see Storage Considerations in Chapter 9.) 


Note: The number of symbols allowed is assigned in blocks of 21; therefore the 
actual number allowed can be larger than the number specified. 


The )VARS Command 


The )VARS command displays the names of all global variables in the active work- 
space. The variables are displayed alphabetically. If the character parameter is 
included, the names are displayed beginning with the specified character sequence. 


Syntax 
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)VARS [character(s)] 


where: 


character(s) (optional) is any sequence of alphabetic and numeric characters that 
starts with an alphabetic character and contains no blanks. This entry can be 
used to define the starting point for an alphabetic listing. 


The }WSID Command 


( ) The )WS!D (workspace 1D) command is used to change or display the tape device/ 
Re file number and workspace ID for the file where the active workspace contents will 

be written if either a SAVE or a )JCONTINUE command is used. The )WSID com- 
mand is also used to change or assign the security password. When the )WSID com- 
mand is issued without any parameters, device/file number workspace ID is dis- 
played. When the )WSID command is issued with parameters, WAS device/file number 


C N workspace ID is displayed. 


Note: The )WSID command only affects the active workspace; it cannot be used 
to change any information on tape. 


@ . Syntax 
\ 
J 


where: 


)WSID [device/file number] [workspace 1D] [:password] 


device/file number (optional) is an integer that specifies the device/file number 
where the active workspace will be stored when either the SAVE or )JCONTINUE 
command is issued. 


Note: \f this parameter is omitted, the device/file number is cleared; a SAVE or 
J}CONTINUE command will not work unless a device/file number is specified in 
that )SAVE or )JCONTINUE command. 


C ; workspace ID (optional) will be the new name for the active workspace. This 
iad parameter must be entered if any other parameter is used. 


ipassword (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. These characters will become 
the security password for the tape file when the active workspace is written on 
tape. 
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Chapter 3. Data 


VARIABLES 


You can store data in the 5100 by assigning it to a variable name. These stored 
items are called variables. Whenever the variable name is used, APL supplies the 
data associated with that name. A variable name can be up to 77 characters in 
length with no blanks; the first character must be alphabetic and the remaining 
characters can be any combination of alphabetic and numeric characters. Variable 
names longer than 77 characters can be used, but only the first 77 characters are 
significant to APL. The < (assignment arrow) is used to assign data to a variable: 


LENGTHE& 
WIDTHS 
AREA¢LENGTHXWIUTH 


To display the vatue of a variable, enter just the variable name: 


LENGTH 
é 

WIDTH 
8 

AREA | 
4S 


DATA REPRESENTATION 


Numbers 


The decimal digits 0 through 9 and the decimal point are used in the usual way. The 
character — , called the negative sign, is used to denote negative numbers. It appears 
as the leftmost character in the representation of any number whose value is less 


than zero: 
0-4 
“Yy 
a Lee 
“4d 


The negative sign, ~, is distinct from - (the symbo! used to denote subtraction) and 
can be used only as part of the numeric constant. 
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Scaled Representation (Scientific Notation) 


/ You can represent numbers by stating a value in some convenient range, then mul- 

cw tiplying it by the appropriate power of ten. This type of notation is called scaled 
representation in APL. The form of a scaled number is a number (multiplier) followed 
by E and then an integer (the scale) representing the appropriate power of 10. For 


example: 
4 \ Number Scaled Form 
ae ——— Multiplier 
66700 6.67E4 
Scale 
.00284 2.84E 3 
oN The E (E can be read times ten to the) in the middle indicates that this is scaled form; 
/ the digits to the right of the E indicate the number of places that the decimal point 


must be shifted. There can be no spaces between the E and the numbers on either 
side of it. 


Character Constants 


Zero or more characters enclosed in single quotes, including overstruck characters 
(see Appendix B) and blank characters (spaces), is a character constant. The quotes 
indicate that the characters keyed do not represent numbers, variable names, or 
functions, but represent only themselves. When character constants are displayed, 
the enclosing quotes are not shown: 


Ne! ‘ARCDEFG ' 
ARCKEFG 
"123 ARC! 
L23ARC 
Me' THE ANSWER 1S:' 
M 
THE ANSWER IS: 


When a quote is required within the character constant, a pair of quotes must be 
entered to produce the single quote in the character constant. For example: 


© 'TON' 'T GIVE THE ANSWER AWAY’ 
DON'T GIVE THE ANSWER AWAY 
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Logical Data 


Logical (Boolean) data consists of only ones and zeros. The relational functions 
(> 2a. < <#) generate logical data as their result; the result is 1 if the condition was 
true and 0 if the condition was false. The output can then be used as arguments 
to the logical functions (AAVV~) to check for certain conditions being true or false. 


SCALAR 


A single item, whether a single number or single character constant, is called a scalar. 
It has no coordinates; that is, it can be thought of as a geometric point. The follow- 
ing are examples of scalars: 


| 132<3 
132.3 
oe 
A 


Scalars can be used directly in calculations or can be assigned to a variable name. 
The variable name for the scalar can then be used in the calculations: 


2x3 
6 

ACR 

Bes 

A+B 
Kal 
ARRAYS 


Array is the general term for a collection of data, and includes scalars (single data 
items), vectors (strings of data), matrices (tables of data), and arrays of higher 
dimensions (multiple tables). All primitive (built-in) functions are designed to handle 
arrays. Some functions are designed specifically to handle arrays rather than scalars. 
Indexing, for example, can select certain elements from an array for processing. 


One of the simplest kinds of arrays, the vector, has only one dimension; it can be 
thought of as a collection of elements arranged along a horizontal line. The num- 
bers that indicate the positions of elements in an array are called indices. An element 
can be selected from a vector by a single index, since a vector has only one dimen- 
sion. The following example shows assigning a numeric and a character vector to two 
variable names, N and C; the names are then entered to display the values they re- 
present: 


NeS 6.2 “3 888 95,12 
N 
3 6.2 "3 888 93.12 
Ce ARCHEFG ' 
C 
ABCTIEFG 


Generating Arrays 


The most common way to generate an array is to specify the following: the shape 
the array is to have—that is, the length of each coordinate; the values of the ele- 
ments of the new array. The APL function that forms an array is the reshape 
function. The symbol for the reshape function is 0. The format of the function 
used to generate an array is Xp Y, where X is the shape of the array and Y represents 
the values for the elements of the array. For the left argument (X), you enter a 
number for each coordinate to be generated; this number indicates the length of 

the coordinate. Each number in the left argument must be separated by at least one 
blank. The values of the elements of the new array are whatever you enter as the 
right argument (Y). The instruction 70 A means that the array to be generated has 
one dimension (is a vector) seven elements in length, and that seven values are to 

be supplied from whatever values are found stored under the name A. It does not 
matter how many elements A has, as long as it has at least one element. If A has 
fewer than seven elements, its elements are repeated as often as needed to provide 
seven entries in the new vector. tf A has more than seven elements, the first seven 
are used. The following examples show generation of some vectors: 


fel 2 3 
L22123 1 

eeled3 
123 dee 

3eLLS 


143 153 1.63 1.3 164 


An array with two coordinates (rows and columns) is called a matrix. 


Columns 


To generate a matrix, you specify X (left argument) as two numbers, which are the 
lengths of the two coordinates. The first number in X is the length of the first co- 
ordinate, or number of rows, and the second number is the length of the second 
coordinate, or number of columns. The following example shows how a matrix is 
generated: 


Me2 3pi 23 4 5 6 


M 

£.32° 3 

re) 
Me2 He ABCTEFGH’ 
M 

ABCT 

EF GH 
M1it2 Bem 
Mi 

ABC 

DEF 
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Note that the values in the right argument are arranged in row order in the arrays. If 
the right argument has more than one row, the elements are taken from the right 
argument in row order. 


The rank of an array is the number of coordinates it has, or the number of indices 
required to locate any element within that array. Vectors have a rank of 1, mat- 
rices have a rank of 2, and N-rank arrays have a rank from 3 to 63 (where N is equal 
to the rank). N-rank arrays, like matrices, are generated by providing as the left 
argument a number indicating the length for each coordinate (planes, rows, and 
columns). The following examples show how to generate 3-rank arrays. Note that 
the elements taken from the right argument are arranged in row order: 


Ae ABCTREFGHT IKLMNOPQRSTUVWXYZ ° 
2 3 4PA 


ABC \ 
EF GH —__—. 2-plane, 3-row, 4-column array 
TK L. 


MNOP 
GRST 
WVWX 
% 3 aA 


A \ 
a \ 4-plane, 3-row, 2-column array 


EF 


Finding the Shape of An Array 


Once you have generated an array, you can find its shape (number of elements in 
each coordinate) by specifying p (shape function) with only a right argument which 
is the name of the array. If A is a vector with six elements and you enter pA, the re- 
sult is one number because A is a one-dimensional array. The number is 6, the 
length (number of elements) of A’s one dimension. The result of the shape function 
is always a vector: 


ALI 222 333 4b SSS 646 
PA 
é 


The shape of a matrix or N-rank array is found the same way: 


In some cases, it might be necessary to know just the rank, the number of coordi- 
nates (or indices) of an array. The rank can be found by entering op (shape of the 
shape) and a right argument, which is the name of the array: 


Me2 Sel 2 3u D4 


Re? Supl 2 Su 5 6 7B 
R 
3 uy 
7 8 
3 uy 


7% 8 
4 & 
7 6 
PR 


ACL 222 333 44H S55 6646 
Be2 Sel 234 3 6 

Ce2 Supl 234 8 6 7 

pr 

PPA 

ek 

PPB 

al | 


eel 
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The following table shows what the shapes and ranks are for the various types of 


arrays: 
Data 
Type Shape p X Rank 9 0X 
Scalar No dimension (indicated by a blank tine). 0 
Vector Number of elements. 1 
Matrix Number of rows and the number of columns. 2 
N-rank 
arrays Each number is the length of a coordinate. N 


Empty Arrays 


Although most arrays have one or more elements, arrays with no elements also 
exist. An array with no elements is called an empty array. Empty arrays are useful 
when creating lists (see Catenation in this chapter) or when branching in a user- 
defined function (see Chapter 6). 


Following are some ways to generate empty arrays: 


@ Assign 10 to a variable name to generate an empty vector: 


EVECTOR¢ 10 
EVEC TOR An empty array is indicated 


by a blank display. 


PEVECTOR 


( 
\ The shape of the empty vector 


is zero (zero elements). 


@ Use a zero length coordinate when generating a multidimensional array: 


_ ; : This matrix has three rows 
EMATRIX1¢3 O¢e1)—— and:no (0) columns. 


EMATRIXI 


A blank output display 
PEMATRIXI 


@ A function might generate an empty vector as its result; for example, finding the 
shape of a scalar: 


p + A 1 
——— A blank output display. 
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CATENATION 


( a You can join together two arrays to make a single array by using the catenation 
; function. The symbol for this function is the comma. When catenating vectors, 
or scalars and vectors, the variables are joined in the order in which they are speci- 
fied, as the following examples show: 


* Atel 2 3 
y eu 5 6 


When catenating two matrices or N-rank arrays, the function can take the form 
A|[!]B, where | defines the coordinate that will be expanded when A and B are joined. 
If the coordinate is not specified, the last coordinate is used. When A and B are 
matrices and [1] is [1], the first coordinate (number of rows) is expanded; when {!] 

is [2], the last coordinate (number of columns) is expanded. The following examples 
show how to catenate matrices: 


Graphic Representation 


A B 
At? 3o10 20 30 40 50 40 10 20 30 11 22 «33 
Be? Beli 22 33 44 SS 66 40 50 60 44 55 66 


A,B 
1060 20 30 11 A B 
0 


33 
WO SO 460 44 66 10 2 30 11 22 33 
A, L278 40 50 60 44 55 66 


% 
“ab 


CH pg 
Gn 


10 20 30 11 22 33 
| WO 50 60 4H SS 66 
$ A, CLI A 
10 20 30 
40 30 60 —<—£@£@ — 
11 22 33 B 


WY SS 46 
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Matrices of unequal sizes can be catenated, providing that the lengths of the co- 
ordinates not specified are the same (see the first example following). If the co- 
ordinates not specified are not the same, an error results (see the second example 


following): 
AC2 Zell 20 30 46 50 60 «| 10 20 30 11 22 3344 
Be? Weld 22 33 uy 55 66 77 88 40 50 60 55 66 77 88 
| A, C208 A B 
10 20 30 41 22 33 yy. I~ 11 22 33 44 
4O 50 40 S35 66 77 88 40 50 60 55 66 77 88 
A 
A, CLIB 
LENGTH ERROR <————_—— 
A- CLI & B 
An 


A scalar can also be catenated to an array. In the following example, a scalar is 
catenated to a matrix. Notice that the scalar is repeated to complete the coordinate: 


At? 3910 20 30 40 SO 60 
A 
10 20 30 
40 50 40 
As C2199 
10 20 30 99 
40 50 60 99 
ALE LISD 
16 20 30 
40 SO 60 
99 99 OY 


A vector can also be catenated to another array, provided the length of the vector 
matches the length of the coordinate not specified. See the following examples: 


ALI? BE 
16 20 30 99 ro 
40 50 460 88 


A,L1L199 88 
LENGTH ERROR << 
A, C11 99 88 


a 


The catenate function is useful when creating lists of information. Sometimes it is 
necessary to use an empty array to start a list. For example, suppose you want to 
( 5 create a matrix named PHONE where each row will represent a 7-digit telephone 
Ree number. First you want to establish the matrix, then add the telephone numbers 
at a later time. The following instruction will establish an empty array named 
PHONE with no (0) rows and seven columns: 


oh, PHONE+0 Ferd 


+ 2}. "I 
e PHONE Blank display indicates an 
sass etn empty array. 
ePHONE a Ha 
0 7 
< j Now, the telephone numbers can be added as follows: 


PHONE ¢ PHONE. C10 ' 3336486 ' 
PHONE 

53364686 
PHONES? PHONE CLI YS Geer rd | 


PHONE 

83364436 

WEG PPL 
PPHONE 

2.7 

Cag Ly The list of telephone numbers 
C \ now contains two rows. 
INDEXING 


You may not want to refer to the whole array but just to certain elements. Referring 
to only certain elements is called indexing. Index numbers must be integers; they 

are enclosed in brackets and written after the name of the variable to which they 
apply. Assume that A is assigned a vector as follows: A<1.1 1.2 1.3 1.4 1.5 1.6 1.7. 
The result of entering A is the whole vector, and the result of entering A[2] is 1.2 
{assuming the index origin is 1; see Chapter 5 for more information on the index 
origin). 


Here are some more examples of indexing: 


co Atil 12 143 14 15 16 17 
~~ Alsi 

13 

Acs 37 12 

19 13 17 11 
os, Bee ee A Blank Character 
C ALBI 

ae 13 12 14 16 


Be ABCUEFGHIIJKLMNOPQRSTUVWXYS ' 

BOY 2 44% 27 1 24% 4 27 312 1 9 18) 
NAN AND CLATR 

Ce22 9 16 7 9 iH Pd 


() BCCI 
/ VIRGINIA 
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If you use an index that refers to an element that does not exist in the array, the 
instruction cannot be executed and INDEX ERROR results: 


A 
12612 13 14 15 16 17 


ALB] 
INDEX ERROR 
ACB] 


A 


You cannot index or do anything else with an array until after the array has been 
specified. For example, suppose that no value has been assigned to the name Z; 
then an attempt to store values in certain elements within Z would result in an 
error, since those elements do not exist: 


203 4118 44 
VALUE ERROR 
2U3 We 18 4S 


“A 


Indices (whatever is inside the brackets) can be expressions, provided that when 
those expressions are finally evaluated, the results are values that represent valid 
indices for the array: 


B | 

ABCDEF GHIJKLMNOP@RSTUVWXYZ 
Xe1 234 5 
BLEXx2] 

BOFHJ 


12345 
BRLL+Xx33 
DGIMP 


The array from which elements are selected does not have to be a variable. For 
example, a vector can be indexed as follows: 


235 79 41113 15 17 JOE? 24 20 
13.3 7 3 

‘ABCHEFGHIJKLMNOPQRSTUVWXYZ ‘C12 15 15 11 27 16 1) 
LOOK PA 
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Indexing a matrix or N-rank array requires an index number for each coordinate. 
The index numbers for each coordinate are separated by semicolons. Suppose M is 
a3 by 4 matrix of consecutive integers: 


MeS3 Hel 234 56 789 10 11 Le 


If you ask to see the values of M, they are displayed in the usual matrix form: 


M. 
1 2 3 4& 
4“ & F 8B 
9 10 11 12 


m 
com 
x 
@ 
BD 
c 


if you want to refer to the element in row 2, column 3, you would enter: 


M2; 33 
7 


If you want to refer to the third and fourth elements in that row, you would enter: 


ME2;3 4) 
7 8 


Similarly, to refer to the elements in column 4, rows 1, 2, and 1, you would enter: 


ME1l 2 1;41 
4 8 uy 


You can use the same procedure to select a matrix within a matrix. If you want the 
matrix of those elements in rows 2 and 3 and columns 1, 2, and 1 of M, you would 
enter: 


ME2 3;1 2 13 
o 6 & 


910 9 


If you do not specify the index number for one or more of the coordinates of the 
array that you are indexing, APL assumes that you want the entire coordinate(s). 
For instance, to get all of row 2, you would enter: 


ME2;3 
9678 
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Indexing 


Or to get all of columns 4 and 1, you would enter: 


MOj4 429 
yw ff 
8 8 
12 Y 


Note: You still have to enter the semicolon to make clear which coordinate is which. 
The number of semicolons required is the rank of the array minus one. If the correct 
number of semicolons is not specified, RANK ERROR results: 


M¢e3 Marie 


eM 
3 
MCG 1¢9 
RANK ERROR 
MCG 7¢9 
A 


You can change elements within an array by assigning new values for the indexed 
elements. (The rest of the array remains unchanged.) 


AtS Sel 254 8 6 7 BY 


A 
12 3% 
Yoo 
? 3 9 
Ale; 2 Stel 20 
A 
ae 
Y 10 20 
Y 8 
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Chapter 4. Primitive (Built-In) Functions 


APL. functions are of two types: user-defined and those that are built into the APL 
language. User-defined functions are discussed in Chapter 6. Built-in functions, 
called primitive functions, are denoted by a symbol and operate on the data you 
supply to them. 


The value or values you supply are called arguments. Primitive functions that use 
two arguments, such as A + B, are said to be dyadic; functions that use one argument 
are said to be monadic, such as + B, which yields the reciprocal of B. Arguments can 
be single data items (scalars), strings of data (vectors), tables of data (matrices), or 
multiple tables of data (N-rank arrays). Arguments can also be expressions or user- 
defined functions that result in a scalar, vector, matrix, or N-rank array. 


There are two types of primitive functions: scalar functions and mixed functions. 
There are also operators that operate on the primitive functions. Examples of the 
functions and operators are provided throughout this chapter for easy reference and 
are set up as they would appear on the display. 


PRIMITIVE SCALAR FUNCTIONS 


Scalar functions operate on scalar arguments and arrays. They are extended to 
arrays element by element. The shape and rank (see Chapter 3) of the result de- 
pend on the shape and rank of the arguments. For dyadic scalar functions, the re- 
lation between the types of arguments and the shape of the result is shown in the 
following table. Each scalar function is described following the table: 


Argument A Argument B 


Array Array with the same Array with the same 
shape as A shape as the 
arguments 


Scalar or one- Array of any Array with the 
element array shape same shape as 
argument B 


Array of Scalar or one- Array with the same 
any shape element array shape as argument A 


One-element One-element array One-element array 

array with the rank with the shape of 
different from the the array with the 
rank of A greater rank 


” 
c 
° 

er) 
oO 
c 
3 
Ww 
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The + Function: Conjugate, Plus 
+ 


Monadic (One-Argument) Form: Conjugate +B 


The conjugate function does not change the argument. The argument can be a 
numeric scalar, vector, or other array, and the shape of the result is the same as that 
of the argument: 


455 

bw) 
Ae "§; 
+A 


If B is an array, the function is extended to each of the elements of B. The shape of 
the result is the shape of B: 


Re? 3p°3 "2 “1 041 2 


k 
ae ee aaa 
0 41 2 
of BR 
abe cae ab 
0 1 2 


Dyadic (Two-Argument) Form: Plus A+B 


The p/us function results in the sum of the two arguments. The arguments can be 
numeric scalars, vectors, or other arrays. Arguments must be the same shape, unless 
one of the arguments is a scalar or single-element array. If the arguments have the 
same shape, the result has the same shape as the arguments: 


B43 
é 

Be. 73 
3.03 

2.6+73.8 

" 

SL i "1 "345,41 2 0 4 

10:2 3 “11 


If one argument is a scalar or single-element array, the shape of the result is the same 
; as that of the other input argument. The single element is applied to every element 
(oP os of the multielement array: 


Be2 Sel 23 4 5 6 
k 


The - Function: Negation, Minus 
+ 


Monadic (One-Argument) Form: Negation -B 


° 
= 
wo 
fou) 
o 
Zz 


The negation function changes the sign of the argument. The argument can be a 
numeric scalar, vector, or other array. The shape of the result is the same as that of 
the argument: 


If the argument is an array, the function is extended to each element of the array: 


Be? S3e7S “2 “101 2 


Ks 
“3 "2 "1 

7 as a. ! 

CO ae | 
0 “1 "2 
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Dyadic (Two-Argument) Form: Minus A-B 


The minus function subtracts argument B from argument A. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 


less one of the arguments is a scalar or any single-element array. If the arguments 
are the same shape, the result has the same shape as the arguments: 


o 7h 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other input argument. The single element is applied to every 
element of the multielement array: 


Be? Sol 234 3 4 


k 

2 3 

wis} 
Sek 
2 id 0 
1 “2 “3 
B~3 
2 “1 0 
1 2 3 


The x Function: Signum, Times 


Monadic (One-Argument) Form: Signum” xB 


The signum function indicates the sign of the argument: if the argument is negative, 
4 is the result; if the argument is zero, then 0 is the result; if the argument is posi- 


tive, 1 is the result. The argument can be a numeric scalar, vector, or other array. 
The shape of the result is the same as that of the argument: 


46 


If the argument is an array, the function is extended to each of the elements: 


ee Be2 3e"2 “1 01 23 
ore Wee: 
12 3 
xB 


Dyadic (Two-Argument) Form: Times AxB 


Spe The times function result is the product of argument A times argument B. The 
« ) arguments can be numeric scalars, vectors, or other arrays. The arguments must be 


the same shape, unless one of the arguments is a scalar or any single-element array. 
Arguments of the same shape have the same shape result: 


exe. 
ly. t he 
“18 
“y 
2.n “16 
C \ If one argument is a scalar or a single-element array, the shape of the result is the 


same as that of the other input argument. The single element is applied to every 
element of the multielement array: 


Ree Spl 2 3 4 3 6 
i 


oa. 9 
12°15 18 
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The + Function: Reciprocal, Divide 


Monadic (One-Argument) Form: Reciprocal +B 


The reciprocal function result is the reciprocal of the argument. The argument can be 
a numeric scalar, vector, or other array. The shape of the result is the same as that of 
the argument: 


If the argument is an array, the function is extended to each of the elements: 


RE? 2e2 .3 


k 
2 0.5 
2 0.5 
ay & 
0.5 2 
0.5 2 


Dyadic (Two-Argument) Form: Divide A+B 


The divide function result is the quotient when argument A is divided by argument B. 
The arguments can be numeric scalars, vectors, or other arrays. The arguments must 
be the same shape unless one of the arguments is a scalar or a single-element array. 
Arguments of the same shape have the same shape result: 


b+3 
2 

"22 
1.5 

10 9 45 3 4 
231 


If one argument is a scalar or a single-element array, the shape of the result is the 


same as that of the other input argument. The single element is applied to every 
element of the multielement array: 


Be2 2el 10 20 100 
B 


1 10 
20 100 
oH 
3 0.3 
0.45 0.03 


Note: There are two additional rules that apply to the divide function: 


1. When zero is divided by zero, the resutt is 1: 


2. Any value other than zero cannot be divided by zero: 


S+0 
ROMAIN ERROR 
30 


“A 
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The [Function: Ceiling, Maximum 
S 


Monadic (One-Argument) Form: Ceiling [B 


The ceiling function result is the next integer larger than the argument (the argument 
is rounded up), unless the argument already is an integer. In this case, the result is 
the same as the argument. The argument can be a numeric scalar, vector, or other 
array. The shape of the result is the same as that of the argument: 


r3.5 "3.5 


ry 


If the argument is an array, the function is extended to each of the elements: 


Be? fel 1.3 1.5 2 
BR 

1.3 
1.5 2 


Note: The result of the ceiling function depends on the []CT system variable (see 
Chapter 5 for information on the [JCT system variable). 


Dyadic (Two-Argument) Form: Maximum A[B 


The maximum function result is the larger of the arguments. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 
less one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 


uf 
é 

3re2 
3 

“é6r 710 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Be? Spl 234 3 6 
B 


The | Function: Floor, Minimum 
D 


Monadic (One-Argument) Form: Floor |B 


The floor function result is the next integer smaller than the argument (the argument 
is rounded down) unless the argument is already an integer. In this case, the result 

is the same as the argument. The argument can be a numeric scalar, vector, or other 
array. The shape of the result is the same as that of the argument: 


If the argument is an array, the function is extended to each of the elements: 


Re? 2Qot 1.5 1.46 2 
kh 

1 1.5 
1.6 2 
LB 


i 


Note: The result of the floor function depends on the [JCT system variable (see 
Chapter 5 for information on the (JCT system variable). 
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Dyadic (Two-Argument) Form: Minimum A[B 


The minimum function result is the smaller of the arguments. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 
less one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 


HLS 
\y. 
32 
2 
ro 
“10 
Selb 71 “3L5.1 2 0 "4 
Sd 2 72 74 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


w 
Bo) 
3 
= 
c 
tor) 
< 
Pa 


Re? 3pl 2 3 4 3 6 
i 


The | Function: Magnitude, Residue i 


Monadic (One-Argument) Form: Magnitude [|B 
The magnitude function result is the absolute value of the argument. The argument 


can be a numeric scalar, vector, or other array. The shape of the result is the same 
as that of the argument: 


7.9? 


1-3 


If the argument is an array, the function is extended to each of the elements: 


Beg 2e°5,1 “1 0 3.14 


kk 
“S.1 I 
0 3.14 
1B 
od i 
) 3.14 


52 


© 


ee 


Dyadic (Two-Argument) Form: Residue A|B 


( : The residue function result (when both argument A and argument B are positive) is 
7 the remainder when argument B is divided by argument A. The following rules 
apply when using the residue function: 


1. If argument A is equal to zero, then the result is equal to argument B: 


4G ) 014 
a 


2. If argument A is not equal to zero, then the result is a value between 
~ argument A and zero (the result can be equal to zero, but not equal to 
: ) argument A). The result is obtained as follows: 


a. When argument B is positive, the absolute value of argument A is subtracted 
from argument B until a value between argument A and zero is reached: 


31S 


b. When argument B is negative, the absolute value of argument A is added to 
argument B until a value between argument A and zero is reached: 


The arguments can be numeric scalar, vectors, or other arrays. The arguments must 
be the same shape, unless one of the arguments is a scalar or any single-element 
array. Arguments of the same shape have the same shape result: 


317 
1 
316 
= 0 
C , 613 
eA 3 
017 
710 
0 


a “2112.2 
CO | a ey, 


"2171203 


“0.3 
2118.2 
1 e 7 
a 112,385 
C} 0.385 


L172. 385 
0.6415 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 


of the multielement array: +) 

Re2 Sel 2 3 4 5 6 
g 

12 3 

4 3 6 : 
SE ( > 

120 . 

12 °0 


The x Function: Exponential, Power » 


Monadic (One-Argument) Form: Exponential *B 


The exponential function result is the Naperian base e (2.7 18281828459045) raised 
to the power indicated by the argument. The argument can be a numeric scalar, 
vector, or other array. The shape of the result is the same as that of the argument: 


Exponential 


* 1 
2.7183 
HS 
20,086 
If the argument is an array, the function is extended to each element of the array: _) 
Kee 2p0 1 2 3 
k 
Oo 
23 
ets 
1 2.7183 
7.3891 20.086 


Dyadic (Two-Argument) Form: Power AxB 


The power function result is argument A raised to the power indicated by “ 
argument B. The arguments can be numeric scalars, vectors, or other arrays. The > 
arguments must be the same shape unless one of the arguments is a scalar,or any 

single-element array. Arguments of the same shape have the same shape result: 


2s 
8 ; 
3¥0 
1 
Oe SS 
3 
Be 3 . 
0. 2255 <———_________—-243 = 1/2° = 1/8 = .125 _) 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Re2 2el 2 3 4 
g 


The @ Function: Natural Log, Logarithm 


The @symbol is formed by overstriking the O symbol and the « symbol. 


Monadic (One-Argument) Form: Natural Log @B 


The natural log function result is the log of the argument B to the Naperian base e 
(2.718281828459045). The argument can be a non-negative numeric scalar, vector, 
or other array. The shape of the result is the same as that of the argument: 


@2.7183 


#20 ,086 


If the argument is an array, the function is extended to each element of the array: 


Re2 2e1 3 10 20 


b 
1 3 
10 26 
ek 
0 1.0986 
2.3026 2.9957 


Dyadic (Two-Argument) Form: Logarithm A@B 


The /ogarithm function result is the log of argument B to the base of argument A. 


The arguments can be numeric scalars, vectors, or other arrays. The arguments must 
be the same: shape, unless one of the arguments is a scalar or any single-element array. 


Arguments of the same shape have the same shape result: 
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If one. argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Rea 2el 2 3 4 


B 
1 2 
3 4 
L0@k 
0.30103 
0.47712 0,60206 


The o Function: Pi Times, Circular 


Monadic (One-Argument) Form: Pi Times 0B 


The pi times function result is the value of pi (3.141592653589793) times B. The 
argument can be a numeric scalar, vector, or other array. The shape of the result is 
the same as that of the argument: 


O1 
3.416 

oO} 
9 W2N8 


If the argument is an array, the function is extended to each element of the array: 


Be2 Zell 23 4 


B 
1 2 
3 4 
OB 
3.1416 6.2832 
9 W248 12.564 


Dyadic (Two-Argument) Form: Circular Ao B 


The circular function result is the value of the specified trigonometric function 
(argument A) for the specified radians (argument B). The arguments can be 
numeric scalars, vectors, or other arrays. Arguments must be the same shape, un- 
less one is a scalar or single-element array. Arguments of the same shape have the 
same shape result. The following is a list of the values for the A argument and the 
related functions performed. A negative argument A is the mathematical inverse 
of a positive argument A; any values for argument A other than the following 
will result in DOMAIN ERROR: 


Value of A Operation Performed 


4 ; ) 008 (1-Bx2)x.5 
; 10B Sine B 
20B Cosine B 
C ‘ | 30B Tangent B 
' 40B (14B%2) «,5 
50B Hyperbolic sine of B (sinh B) 
C ‘ 60B Hyperbolic cosine of B (cosh B) 
70B Hyperbolic tangent of B (tanh B) 
“10B Arcsin B 
“20B Arccos B 
“30B Arctan B 
0B (7 14+B x2) *.5 
“BoB Arcsinh B 
C } “6oB Arccosh B 
“70B Arctanh B 


If B is 45°, here is how to solve for the sine, cosine, and tangent of B (45° is equiva- 
lent to pi radians divided by 4): 


coe 
The left argument specifies 


7B oie trigonometric function. 
Lor 
0.7074 | <——_——_—_—_—_—_————__ Sine of B 


@ } 20k 


0.70711-————_Cosine of B 
3OBR 


.—@£ qx“ —__—__ — Tangent of B 
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If B is the sine of an angle, then OOB yields the cosine of the same angle, and con- 
versely, if B is the cosine, OOB yields the sine. Suppose you wanted the sine of : 
30°, which is equivalent to pi divided by 6: : > 


Re Lo (o+6) 
B 
1.45 ————— Sine of 30° : 


ok 
0.86603 Cosine of 30° e S 
Be 20(O0+84) 
B i 
0.86603 Cosine of 30° | 
QO : 
6,9<-——————______—_—___—- Sine of 30 y 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multieltement array: 


ow 
8 & 
ES 
Fo 
<6 


Ac2 2el 2 3 4 


Be Oly 
A 
12 | 
3 4 
k | 
0.7854 = 
AQK = 
0.70711 0.70711 
1 L,2716 
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The ! Function: Factorial, Binomial & e 


( } The ! symbol is formed by overstriking the quotation mark(')and the period (.). 
Monadic (One-Argument) Form: Factorial !B 

a The factorial function result is the product of all the positive integers from one to 

C : the number value of the argument. The argument can be a positive numeric scalar, 


vector, or other array. The shape of the result is the same as that of the argument: 


Ty 
ou 


ae — AKBXBxy 
C F 24 


2345 
126 24 12 


The factorial function also works with decimal numbers and zero. When used in this 
way, factorial can be defined by use of the mathematical gamma function: 


Binomial 


© 
ca 
ie} 
na 
re) 
o 
uw 


13.14 


If the argument is an array, the function is extended to each of the elements: 


Re2 200 1 2 3 
B 


2 é 
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Dyadic (Two-Argument) Form: Binomial A!B | 


The binomial function result is the number of different combinations of argument B 
that can be taken A at a time. The result of A!B is also the (A+1 yth coefficient of 
the binomial expansion of the pth power. The arguments can be numeric scalars, 
vectors, or other arrays. The argument must be the same shape, unless one of the 
arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 


O14 
& 
216 pw [x [y [Zz |+——Argument 
15 
310 
0 
O13 The combinations of 
1 argument B taken 
21% argument A(2) at a time 
3 


if one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: , 


01 2 313 
13 31 
612 3 Wth 
1464 4 
Bee 2p0 1 2 3 
B 
O 1 
2 3 
BIS 
1 w 
10 10 
2!:7h# 5S 4.5 4 
10 10 7.875 6 


The ? Function: Roll 
a 


Monadic (One-Argument) Form: Roll ?B 


om, 


The ro// function result is a randomly selected integer from 0 through B-1 or 1 
through B (depending on the index origin). Each integer in the range has an equal 
mo chance of being selected. The argument can be a positive integral scalar, vector, or 
C } other array. The shape of the result is the same as that of the argument: 


300 
202 
© O00 
7 ‘ 3 
on 7 9 
244 
4 6 
ou 
74 6 
& & 


if the argument is an array, the function is extended to each element of the array: 


Ree Beli 22 33 Wu Bo 66 


C 11 22 33 
: Wy 85 66 
oR 

2 417 16 


oy 13 4 


Dyadic (Two-Argument) Form 


See the Deal function later in this chapter under Primitive Mixed Functions. 
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The « Function: And 


Monadic (One-Argument) Form 


There is no monadic form. 


Dyadic (Two-Argument) Form: And AAB 


The and function result is 1 when A and B are both 1; otherwise, the result is 0. The 
value of the arguments must be either 0 or 1. The arguments can be scalars, vectors, 
or other arrays. The arguments must be the same shape unless one of the arguments 
is a scalar or any single-element array. Arguments of the same shape have the same 
shape result: 


; And Table 
GAL 
6 ve Operator \ 
‘i A |~— Argument A 
Lag 
0 
00 4 ta0 2 0 71 
000 4 


\_- Argument B 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Re? 2e0 1 i 0 


i 
a0 1 
1 0 

Lak 
QO 4 
1 
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The v Function: Or 


c ; Monadic (One-Argument) Form i 
There is no monadic form. ! 
Dyadic (Two-Argument) Form: Or AVB 
. ‘ The or function result is a 1 when either or both arguments are 1; otherwise, the 


result is 0. The values of the arguments must be 1 or 0. The arguments can be 
scalars, vectors, or other arrays. The arguments must be the same shape, unless 
one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 


Or Table 


1 Operator 


0 <«—_——— Argument A 
001 iv0 101 “4 
odii | 
( 7 Argument B 
Vo 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Be2 2e0 1 0 1 | 
i | 


ivG 
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The ~ Function: Not 
a 


Monadic (One-Argument) Form: Not ~B 
The not function result is 1 when B is 0 and O when B is 1. The values of the argu- 


ment must be 1 or 0. The argument can be a scalar, vector, or other array. The shape 
of the result is the same as that of the argument: 


~ 


vi 


0 


If the argument is an array, the function is extended to each element of the array: 


ke? 3e0 1 
183 


01.0 
0 4 
wis 


Dyadic (Two-Argument) Form 


There is no dyadic form. 


| The (Function: Nand {- ~ 


( } The A symbol is formed by overstriking the and (A) and the not (~) symbols. | 


Monadic (One-Argument) Form 


_. There is no monadic form. 


Dyadic (Two-Argument) Form: Nand AAB 


The nand function result is OQ when both A and B are 1; otherwise, the result is 1. 
. The values of the arguments must 1 or 0. The arguments can be scalars, vectors, or 
C ‘ other arrays. The arguments must be the same shape, unless one of the arguments 
/ is a scalar or any single-element array. Arguments of the same shape have the same 
shape result: 


Nand Table 


0x4 Operator —» A |+————- Argument A 


Argument B 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


He2 geo 1 
i 
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The ¥ Function: Nor 


The Vsymbol is formed by overstriking the or (v) and the not (~) symbols. ’ 1) 


Monadic (One-Argument) Form 


There is no monadic form. 


Dyadic (Two-Argument) Form: Nor AVB 


The nor function result is 1 when A and B are both 0; otherwise, the result is 0. The 

values of the arguments must be 1 or 0. The arguments can be scalars, vectors, or 

other arrays. The arguments must be the same shape, unless one of the arguments i -) 
is a scalar or any single-element array. Arguments of the same shape have the same : 
shape result: | 


Nor Table 


Operator —» V j~—_—_—_—- Argument A 


004 190 1021 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Be2 2p0 1 
RB 


0¢6 / me 
1 0 S 
0 


i 
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The >Function: Greater Than 


Monadic (One-Argument) Form 


There is no monadic form. 


Dyadic (Two-Argument) Form: Greater Than A>B 


The greater than function result is 1 when argument A is greater than argument B; 
otherwise the result is 0. The arguments can be numeric scalars, vectors, or other 
arrays. The arguments must be the same shape, unless one of the arguments is a 
scalar or any single-element array. Arguments of the same shape have the same 
shape result: 


() 
eae 

0} 

"B22 
o . 

the TU ye 
1 

1.1233°1,123 
0 ; 

$1 gn “Ue 

oe 01 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


ke? Sel 23 4 & S 
K 

3 

& 

4>B 

0 

0 


Note: The result of the > function depends on the [JCT system variable (see 
Chapter 5 for information on the [JCT system variable). 
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The = Function: Equal To & 


Monadic (One-Argument) Form C) 


There is no monadic form. 


Dyadic (Two-Argument) Form: Equal To A=B 


| 

The equal to function result is 1 when the value of argument A equals the value ) 
of argument B; otherwise, the result is 0. The arguments (numeric or character) 
can be scalars, vectors, or other arrays. The arguments must be the same shape, 
unless one of the arguments is a scalar or any single-element array. Arguments 
of the same shape have the same shape result: 


(pen 
0 
L. GS432121, 454-32] 
1 
l=" A’ 
4] 
Ata Be 
tj 
‘Alia A! 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array. 


‘A’? ARACALTAEAFAG ' 
1016026010261 0 


Note: \f the arguments are numeric, the result of the = function depends on the 
[ICT system variable (see Chapter 5 for information on the [JCT system variable). D 


The < Function: Less Than 
3 


Monadic (One-Argument) Form 


- 


There is no monadic form. 


C , Dyadic (Two-Argument) Form: Less Than A<B 
} 
of 


The /ess than function result is 1 when argument A is less than argument B; other- 


wise the result is 0. The arguments can be numeric scalars, vectors, or other arrays. 


The arguments must be the sare shape, unless one of the arguments is a scalar or 


any single-element array. Arguments of the same shape have the same shape result: 


“220 
1 

Liat 
4 

Ooh Ye 
0 
0 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Be? Spl 234 35 6 


Note: The result of the < function depends on the [JCT system variable (see 
ce, Chapter 5 for information on the CT system variable). 
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The > Function: Greater Than or Equal To 


Monadic (One-Argument) Form 


There is no monadic form. 


| Dyadic (Two-Argument) Form: Greater Than or Equal To A>B 


The greater than or equal to function result is 1 when argument A is greater than 
or equal to argument B; otherwise, the result is 0. The arguments can be numeric 
scalars, vectors, or other arrays. The arguments must be the same shape, unless one 
of the arguments is a scalar or any single-element array. Arguments of the same 
shape have the same shape result: 


1.6522 

. 0 
3 220 
& 0 
22 
° 

1 

i 


If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Re2 Sel 234 3 4 
i 


— 
. 
“ 
in 
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= 
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a 
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Note: The result of the > function depends on the [JCT system variable (see Chapter 
5 for information on the (ICT system variable). 
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The < Function: Less Than or Equal To 
4 


all Monadic (One-Argument) Form 
There is no monadic form. 
Dyadic (Two-Argument) Form: Less Than or Equal To A<B 


e . The /ess than or equal to function result is 1 when argument A is less than or equal 
to argument B; otherwise, the result is 0. The arguments can be numeric scalars, 
vectors, or other arrays. The arguments must be the same shape, unless one of the 
arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 


! 
| 1.6522 
| 1 . 
| 220 
1 
Ba 72 
1 
02°72 
0 
| “s 
! 
\ 
e ‘ If one argument is a scalar or a single-element array, the shape of the result is the 


same as that of the other argument. The single element is applied to every element 
of the multielement array: 


Be? Sel 23 uU S 6 
ik 
2 3 


va Note: The result of the < function depends on the [JCT system variable (see Chapter 
C Y 5 for information on the [JCT system variable). 
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The # Function: Not Equal To 

Monadic (One-Argument) Form C) 
There is no monadic form. 

| Dyadic (Two-Argument) Form: Not Equal To A#B 

The not equal to function result is 1 when argument A is not equal to argument B; C) 

otherwise, the result is 0. The arguments (numeric or character) can be scalars, ; 

vectors, or other arrays. The arguments must be the same shape unless one of the 


arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 


0*5 | C) 


2 1 
= 1.12341,.422 
S 0 
* ATE A 
2 0 
'A'#'B! 
1 


ved “1 “345.1 


If one argument is a scalar or a single element array, the shape of the result is the Cc) 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 


"A'#F  ABACATIAE AF AG ' 
O102 024 0212021 021 


Note: \f the arguments are numeric, the result of the #function depends on the 
[ICT system variable (see Chapter 5 for information on the [JCT system variable). 
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PRIMITIVE MIXED FUNCTIONS 


The mixed functions differ from scalar functions because the shape of their results 
depends on the particular mixed function rather than exclusively on the shape of 
the arguments. The following list gives a brief description of each of the mixed 
functions. Following the list, each function is discussed in detail: 


Monadic 

Mixed 

Functions Name 

0B Shape 

B Ravel 

4B Grade up 

yB Grade down 

1B Index 
generator 

6B or Reverse 

pCliB 

or eB 

OB Transpose 

HB Matrix 
inverse 

oB Execute 

vB Format 

Dyadic 

Mixed 

Functions Name 

AoB Reshape 
(structure) 

A,B Catenate 

or 

A.{B 

A, {1B Laminate 


Result 


The length of each coordinate of the 
argument. 


A vector containing the elements of B 
in the order they exist in the rows of B. 


The index values that would select the 
elements of B in ascending order. 


The index values that would select the 
elements of B in descending order. 


wy 
c 
° 
- 
o 
c 
s 
uw 


B consecutive integers starting from 
the index origin. 


The elements of the argument are 
reversed. 
The coordinates of the argument are 


reversed, 


The inverse of a square matrix or the 
Pseudoinverse of a rectangular matrix. 


Argument B executed as an expression. 


Argument B converted to a character 
array. 


Result 


An array of a shape specified by A, 
using elements from B. 


The two arguments joined along an 
existing coordinate ([I] is a positive 


integer). 


The two arguments joined along a new 
coordinate ([{I] is a fraction). 
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Dyadic 
Mixed 
Functions 


A/B or 
A/[1]B or 
A/B 

A\B or 
A\[1]B or 
AB 


AtB 


AYB 


AiB 


a 
Z 
Be 
f= 
£2) 
c 
| 
ve 


AoB or 
AOtl]B 
or AeB 


A&B 


A?B 


ALB 


ATB 


AcB 


AGB 


AB 
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Name 


Compress 


Expand 


Take 


Drop 


Index of 


Rotate 


Generalized 
transpose 


Deal 


Decode 
(base value) 


Encode 
(representation) 


Membership 


Matrix 
divide 


Format 


Result 


The elements from B that correspond 
to the 1's in A. 


B is expanded to the format specified 
by A; 1 in A inserts an element from 
B; a 0 in A inserts a O or blank element. 


The number of elements specified by A 
are taken from B. 


The number of elements specified by A 
are dropped from B. 


The first occurrence in A of the elements 
in B. 


The elements of B are rotated as specified 
by A. IfA is positive, the elements of B 
are rotated to the left. If A is negative, 
the elements of B are rotated to the right. 


The coordinates of B interchanged as 
specified by A. 


The number of elements specified by A 
are randomly selected from B, without 
selecting the same number twice. 


The vaiue of argument B expressed in 
the number system specified by 
argument A. 


The representation of argument B in 
the number system specified by 
argument A. 


A 1 for each element of A that can be 
found in B and a O for each element 
not found. 


Solution to one or more sets of linear 
equations with coefficient matrix 
(matrices) B and right-hand sides A or 
the least squares solution to one or 
more sets of linear equations. 


Argument B converted to a character 
array in the format specified by 
argument A. 


Note: The mixed functions reverse, rotate, compress, and expand, and the operators 
: (see Operators \ater in this chapter) reduction and scan can be applied to a specific 
( \ coordinate of an array. This is done by using an index entry [1] which indicates the 
Nae coordinate to which the mixed function or operator is applied. The value of the 
index entry can be from 1 to the number of coordinates in the array; the leftmost 
coordinate (first coordinate) has an index value of 1, the next coordinate has an 
index value of 2, and so on. A matrix, for example, has an index value of 1 for the 
row coordinate and an index value of 2 for the column coordinate. If an index entry 
cc "sy is not specified, the last coordinate (columns) is assumed. !f a - (minus) symbol is 
oy overstruck with the function symbol or operator symbol, the first coordinate is 
assumed (unless an index value was also used). When a function or operator is ap- 
plied to a specific coordinate, the operation takes place between corresponding ele- 
ments in the specified coordinate. For example; assume you have a 3-rank array: 


corresponding elements in each plane. 


< ) ® When the first coordinate (planes) is specified, the operation takes place between 
@ When the second coordinate (rows) is specified, the operation takes place between 
the corresponding elements in each row per plane. 


@ When the third coordinate (columns) is specified, the operation takes place be- 
tween the corresponding elements in each column per plane. 


The > Function: Shape, Reshape (Structure) 


Monadic (One-Argument) Form: Shape 0B 


f 

oe The shape function result is the shape of the argument; it has one element for each 
coordinate of the argument, which indicates the length of that coordinate. The 
argument can be any variable or constant: 


e' ABCn'———_—_- A Vector with Four Elements 


el 2 
” 


Be 


Ae2 Bel 2 3 4 4 6 


yu So 4 
pA 
2 3 
C ‘) The shape function applied to a scalar yields an empty vector, since a scalar has no 
a coordinates. An empty vector is indicated by a blank result line: 


02 


Be Blank Result Lines 
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The instruction 9 9B yields the rank (shape of the shape, or, number of coordinates) 


of B: 

Re2 2 3e' CARBARFARARE ' 
b 

CAR 

BAR 

FAR 

ARE 
Pu 

2 2 & 
Pek 


Dyadic (Two-Argument) Form: Reshape (Structure) ApB 


The reshape function forms an array of the shape specified by argument A using 
element(s) from argument B. The elements of argument B are placed into the 
array in row order. If there are not enough elements in argument B to fill the 
array, the elements are repeated. If there are more elements in argument B than 
are required to fill the array, only the required number of elements are used. 
Argument A must be a positive integer or vector of positive integers. The number 
of elements in argument A is equal to the number of coordinates, or the rank, of 
the result. Argument B can be any variable or constant. If all of the elements of 
argument A are nonzero, then B cannot be an empty array: 


2 Sel 234 8 6 
1 2 3 
“ 3 } 
4 2a’ ARCKEFGH' 
AB 
Ch 
EF 
OH 
se 'MOUSETRAP* 
MOUSE 
3 Wel 
123 123 123 123 
123 123 123 122 
123 123 123 12% 
Ach Zeal 234 5 6 7 8B 


A 
1 2 
3 4 
ra 
7 8 
2 3eA 
1 2 3 
43 6 
Gai 


The , Function: Ravel, Catenate, Laminate a 


Ce Monadic (One-Argument) Form: Ravel ,B 


The rave/ function results in a vector containing the elements of argument B. If 
argument B is an array, the elements in the vector are taken from argument B 
in row order. Argument B can be a scalar, vector, or other array. The resulting 


C N vector contains the same number of elements as argument B: 
Ace 2 @el 23435 6 7 8 
A 
1 2 
7 34 
% 8 
A 
1234 5 678 
Be? Se’ ABCTIEF ' 
i 
ARC 
Qe 
KB 
ABCIEF 
< ‘ Dyadic (Two-Argument) Form: Catenate or Laminate A,[I]B 


The function is catenate when the [1] entry (index entry) is an integer and /aminate 
when the [I] entry is a fraction. 
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Catenate (The Index [1] Entry Is an Integer): The catenate function joins two items along 
an existing coordinate. (See the /aminate function following for a description of how 
to join two items along a new coordinate). The index [I], if given, specifies which 
coordinate is expanded. The index entry must be a positive scalar or one-element 
array. If no index [1] is specified, the last coordinate is used. Matrices of unequal 
sizes can be joined, providing the lengths of the coordinate not specified are the 
same (see Catenation in Chapter 3): 


Atl 4 
Be? 9 5 
Ask 
14795 
At? Bol 234 5 6 
Re? 397 89 10 11 12 
A 
1 122% 
4S 6 
5 B 
5 7 8 9 
8 10 41 12 
Ask 
12 3 7 8 9 
4 5 6 10 41 12 
A, CIB 
e+ 
L § 6 
7 8 9 
10 41 12 
4,C2I8 
1 2 3 7 8 9 
u § 6 410 41 12 
A, C2110 20 
1 2 3 10 
4 § 6 20 
10 20 30,0114 
10 20 30 
i ae 
ho oS 6} 
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Laminate (The Index [1] Entry is a Fraction): The /aminate function joins two items by 
creating a new coordinate, specified by the index entry [1] which must be a posi- 
Pa tive fraction. If the index entry is between 0 and 1, the new coordinate becomes 
@ } the first coordinate; if the index entry is between 1 and 2, the new coordinate is 
placed between existing coordinates 1 and 2 (the new coordinate that is added al- 
ways has a value (or length) of 2). The following chart shows the positions of a 
new coordinate in the shape vector (see the following examples) when two 3 by 
3 matrices are laminated: 


Positions of New 
Coordinate in the Shape 
index Value Vector 


@ 
~ 
0 
c 
< 
c 
% 
— 


Lamination requires either that arguments A and B are the same shape or that one 
of the arguments is a scalar: 


Aes Sol 2 384 2 46 F¥ Be 


ae hes Seld 22 BS UW SE 466 FY BE OY 
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. 3 X~_________Shape Vector 
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yo oS 4 


yl SS 46 


7 & Y 

77 BE 89 
et 

32 $+ Shape Vector 


Cea. C2, 1.78 
( 

114 

2 22 


BSS 


® 
ec 
c Wye Ay 
E SSS 
od 


of 
& Oo 


7077 

8 88 

9 OF 
ac 


3 2 Shape Vector 


The following examples show the result when the two matrices in the preceding example 
are catenated instead of laminated: 


1 2 
4.9 
% 8&8 
11 22 
Wu aS 
7? 38 


ALT LIE 


e 
33 
66 
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1 2 
4 OS 
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The / Function: Compress 
/ 


Monadic (One-Argument) Form 


See Reduction later in this chapter under APL Operators. 


C ) Dyadic (Two-Argument) Form: Compress A/[I] B or A/B or A¥B 


The compress function selects elements from argument 8B corresponding in sequence 
to 1’s in argument A. Argument A must be a logical scalar or vector having the 
values 0 or 1. Argument B can be any scalar, vector, or other array. Both arguments 
must have the same number of elements unless: 


C) @ One of the arguments is.a scalar or single-element array. 


@ Argument B is an array; then the number of elements in argument A must be 
the same as the length of the argument B coordinate being acted on. 


When argument B is an array, the [I] index entry is used to specify the coordinate 
that is acted on. If the index entry is omitted, the last coordinate (columns) is 
assumed. If the A¢B form is used, the first coordinate is assumed. The rank of the 
result is the same as the rank of argument B: 


1040 4/1 2348 


Blank Display Line (empty array) 


BeS Yel 234 5 6 7 8 F 10 11 ie 


B 
1 2 3 & 
a © F § 
? 10 11°42 
1 0 L/C108 


Bete The first coordinate (rows) is specified; 
1 Roam 3 + ea the first and third rows, as specified by 


aes Renee argument A, are selected. 
0 2 1 O/T 2I8 


. % 
C ‘ ee ” PON de ee The second coordinate (columns) is specified; 


? 
of | ij j i the second and third columns, as specified by 


argument A, are selected. 


1 0 1% 
| ns 
7 10 1 12 
Jo oO 1 4 O/B 
< : a 3 
ed & 7 
10° 614 
L/R 
1 2 3 4 
# 5 6 7 6 


12 


a] 

—_ 

oo 
o 
Ne 
oa 


gece So ee Blank Display Line (empty array) 
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The \ Function: Expand 


Monadic (One-Argument) Form 


See Scan tater in this chapter under APL Operators. 


Dyadic (Two-Argument) Form: Expand A\[1] 8 or A\B or AXB: 


The result of the expand function is argument B expanded as indicated by 
argument A. Each 1 in. argument A selects an element from argument B and each 
0 in argument A inserts a O (or blank for character data) in the result. Argument A 
must be a logical scalar or vector having the values 0 or 1. Argument B can be any 
scalar, vector, or other array. If argument B is a scalar or vector, argument A must 
have the same number of 1’s as the number of elements in argument B. If 
argument B is an array, argument A must have the same number of 1’s as the length 
of the argument B coordinate being acted on. 


When argument B is an array, the [t] index entry is used to specify the coordinate 
that is acted on. If the index entry is omitted, the last coordinate (columns) is 


assumed. If the AXB is used, then the first coordinate is assumed. 


The rank of the result is the same as the rank of the B argument: 


1042 0N1 2 3 


102 3 0 

Be? Sel 2 34 3 6 

k 
12 3 
43 4 

1 0 INCLIB 
12 3 The first coordinate (rows) is 
6 0 0 expanded; a row is inserted be- 
y  % tween the first and second row. 


110 INC208 


12 03 \ . The second coordinate (columns) is 

u 5 0 4 expanded; a column is inserted 

12 ;; 0 LB between the second and third columns. 
000 

45 6 


_) 


| The 4 Function: Grade Up & 


The Asymbol is formed by overstriking the A symbol and the | symbol. 


| 
Monadic (One-Argument) Form: Grade Up AB 
CG ‘ The grade up function result is the index values that would select the elements of 
of argument B in ascending order. That is, the first element of the result is the index 
of the smallest element in argument B, the next element is the index of the next 
smallest element in argument B, and so on. Argument B must be a numeric vector. 
When two or more elements in the vector have the same numeric value, their posi- 
tion in the vector determines their order in the result (the index value of the first 
C) occurrence appears first in the output). The number of elements in the result is the 
y same as the number of elements in the argument: 
43 15 2.4 
24 15 3 
hae6 25S 1 u 3 
y¥ 265 321 
363 15 2 
4 6413 5 2 
The following example shows how the grade up function can be used to sort a vec- 
C % tor into ascending order: 


Ati4 12146 18 15 11 
A CaéAd 
12 12 144 15 16 18 


The grade up function is not the inverse of the grade down function because of the 
way equal elements are handled; see The Y Function: Grade Down for an example 
using the grade up and grade down functions with equal elements. 

Note: The result of the 4 function depends on the [JIO system variable (see Chap- 
ter 5 for information on the [IO system variable). 


Dyadic (Two-Argument) Form 


There is no dyadic form. 
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The y Function: Grade Down G.) 


The Y symbol is formed by overstriking the Vsymbol and the | symbol. 


Monadic (One-Argument) Form: Grade Down 


The grade down function result is the index values that would select the elements 
of argument B in descending order. That is, the first element of the result is the 
index of the largest element in argument B, the next element is the index of the 
next largest element in argument B, and so on. Argument B must be a numeric 
vector. When two or more elements in the vector have the same numeric value, 
their position in the vector determines their order in the result (the index value 
of the first occurrence appears first in the output). The number of elements in 
the result is the same as the number of elements in the argument: 


5 3 15 2 4 
A 35142 
2 paes 2G 14 S 
6 435624 . 
93 6315 2 
2513 64 


The following example shows how the grade down function can be used to sort a 
vector in descending order: 


Athy 1216 18 1S 1 
AL PAL 
186 $16 15 14 12 11 


The following example shows how equal elements are handled when using the grade 
up and grade down functions: 


Aes 28 7 Su 10 1 2 3 


i 
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99 7 3 4 0 £ 2 3—+—_ Positions 2 and 9 and & and 10 are equal. 


Because the indices for the equal elements are in the same order (first occurrence 
first) for both the grade down and grade up function, the grade down function is 


a . not the inverse of the grade up function: 
ALPAI 

108754 332214 
ALAAI 

Cc. 122334 5 7 8 10 


Note: The result of the Y function depends on the [IO system variable (see Chap- 
ter 5 for information on the [JIO system variable). 


C \ Dyadic (Two-Argument) Form 


There is no dyadic form. 
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The + Function: Take 
Y 


Monadic (One-Argument) Form 


There is no monadic form. 


Dyadic (Two-Argument) Form: Take A+B 


The take function result is the number of elements specified by argument A, taken 
from argument B. Argument B can be a scalar, vector, or other array. Argument A 
must be a scalar or vector of integers. If argument B is a vector, argument A must 
be a scalar. If argument B is a multidimensional array, argument A must be a vector 
with an element for each coordinate of argument B. When argument A is positive, 
the first elements of argument B are taken; when argument A is negative, the last 
elements are taken. If argument A specifies more elements than the number of 
elements in argument B, the result is padded with 0’s (or blanks for character data): 


O04 2 354 5 
BeS 4ol 2345 678 F 10 11 12 


B 
1 2 3 4& 
42 6 %F 8 
9 10 11 12 
2 Stk 
1 2 3 
3 6 7 
Re? 2 Sel 2345 676 9 10 41 12 
B 
1 2 3 
Be & § 
7 8 °F 
10 11 12 
1 1 =Atsk 
1 
2 1 its 
1 
7 
1 2 Stk 
1 2 3 
4 5 4 
“1 2 Stk 
7 8 °F 
160 11 42 


The + Function: Drop 
U 


Monadic (One-Argument) Form 


There is no monadic form. 


C ) Dyadic (Two-Argument) Form: Drop A+B 


The drop function result is the remaining elements of argument B after the number 
of elements specified by argument A is dropped. Argument B can be a vector or 
other array. Argument A must be a scalar if argument B is a vector. 


When argument B is an array, argument A must have one element for each coordi- 
C) nate of argument B. When argument A is positive, the first elements of argument B 
are dropped from the result; when argument A is negative, the last elements are 
dropped: 


341 2 


“341 234 5 


ReZ 4ol 234%56789 10 11 12 
i 
1-2-2 & 
é 5 6 7 8 
7 9 10 11 12 
1 248 
7, 8 
1 12 


“iL “248 
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index of 


The 1 Function: Index Generator, Index of & 


Monadic (One-Argument) Form: Index Generator 1B 


The index generator function result is a vector containing the first B integers, start- 
ing with the index origin (see [10 system variable in Chapter 5). The argument can 
be a nonnegative integer that is either a scalar or a single-element array. 


o 


ba 


16 


>DFE- 


12345 6 
uti <——Each of the generated integers is added to 5. 


678 9 10 


Dyadic (Two-Argument) Form: index of AiB 


The index of function result is the index of the first occurrence in argument A of 
the element(s) in argument B. Argument A must be a vector. Argument B can be 

a scalar, vector, or array. The result is the same shape as argument B. If the element 
in argument B cannot be found in argument A, the value of the index for that ele- 
ment is one greater than the largest index of A ([JIO + pA): 


rh 
aH 
eS} 
an 
x 
~ 

a 


2 Second Element 


“ABCHEFG AC’ 


3 
At11 22 33 Wu SS 
Ai22 
2 
AVW23 
é 
Ato 28 8264 B 
Ke? Zoi 9815 2 
kk 
1 
LS 2 
Aik 
9 13 
9 9 ? 


Note: The result of the 1 function depends on the [IO system variable (see Chapter 
5 for information on the [IO system variable). 


88 


The } Function: Reverse, Rotate & 


The ¢ symbol is formed by overstriking the O symbol and the | symbol. A special 
form of the function symbol is e, formed by overstriking the O symbol and the - 
symbol. 
C . Monadic (One-Argument) Form: Reverse [1] B or }B or 0B 
a 


The reverse function reverses the elements of argument B. Argument B can be any 
expression. 


Kew 


89 


90 


When argument B is a multidimensional array, the index entry [1] can be used to 
specify the coordinate that is acted on. If the index entry is omitted, the last co- 
ordinate (columns) is acted on. If the eB form is used, then the first coordinate fy 


is acted on 


y 3 
EVIL 
32 
& & 
SAVE 
MUCH 


MORE 
TIME 


MORE 
TIME 
SAVE 
MUCH 


MUCH 
SAVE 
TIME 
MORE 


EVAS 
HCUM 


E-ROM 
EMIT 
EVAS 
HCUM 


EROM 
EMIT 


MORE 
TIME: 


SAVE 
MUCH 


” 
a 


o1 23 4 
1 
OLIVE * 


2 Ber} 6 
L ee 


At2 2 Ye 'SAVEMUCHMORETIME ' 
A 


Orta | 


The first coordinate (plane) is specified; 
the planes are reversed. 


OC2A 


The second coordinate (rows) is specified; 
the rows in each plane are reversed. o +) 


ocsia 
The third coordinate (columns) is 
specified; the columns in each plane are 


reversed. 


oA 


The fast coordinate is acted on. 


eA 


The first coordinate is acted on. 


A ES tnt 


Dyadic (Two-Argument) Form: Rotate AdI[1]B or AdB or AGB 


a The rotate function rotates the elements of argument B the number of positions 
} specified by argument A. If argument A is positive, then the elements of 
argument B are rotated to the left (rows), or upward (columns). If A is negative, 
the elements are rotated to the right (rows), or downward (columns). Argument B 
can be any expression. The shape of the result is the same as that of argument B. 


] specify the coordinate that is acted on. If the index entry is omitted, the last co- 
ordinate (column) is acted on. If the AeB form is used, then the first coordinate 
is acted on. 


C ™ When argument B is a multidimensional array, the index entry [I] can be used to 


If argument B is a vector, then argument A must be a scalar or single-element array. 
a, If argument B is a matrix, then argument A must be a scalar or vector. When 
C ) argument A is a vector, the number of elements in argument A must be the same as 
Bi the number of elements in the coordinate being rotated. For example, if B is a3 
by 4 matrix (each row has four elements) and the row coordinate is specified, A 
must have four elements: 


201 2345-+—~_ 3 4 5 
3u G12 
"201 2345 Ce ele 


ad 
%¥S 1 2 3 
7O1 23 4 3 
$345 12 
BReSZS to 123456 7 BY 10 11 Le 


aa B The first coordinate (rows) is specified; 


@ 
a 
x. 
a 
a 
ee 
a 


ame 


C ; 1 2 3 4 therefore, the rotation is between rows. 
~ o 6 7 § 
9 10 41 42 5 2 7 12 | 


1 0 1 20L1I8 
9 2 ¥ 2 9 6 | 


11 4 
9 6141 4 J J 
140 3 8 { Wee 8 
0 1 20C2IR 


1 2 3 4 ‘ 


& 7 8 #§ The second coordinate (columns) is specified; 


11 12 FY 10 therefore, the rotation is between columns. 
0 1 208 
oe 
= - 7 : x jp eee oe last coordinate is acted on. 
C) 11412 9 10 
10 1 268 
S 2 7 12 
9 6 11 | The first coordinate is acted on. 
110063C~*SB 
oy Aé-1 0 1 2 
e 
‘s “1 6 "1 72 
AOC LAB 


9 211 8 
1 4&6 $12 
say yy. 


O 10 7 | | 
) 
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If argument B is an N-rank array, argument A must be a scalar or an array with a 
rank that is one less than the rank of argument B. The shape of argument A must | 


be the same as argument B less the coordinate being acted on: C) | 
Bes 3 Seri2? 
BR 
2 3 
0 6 " 
8 9 ( -) 
11°42 
14 =135 
17 18 
20 2 f | 
23 24 N | 
26 27 
pk 
3 
Ac3 3ei 60026 00 0 
A 
0 0 nsseete = The shape of argument A must be the same 
2 9 as argument B less the coordinate being 
0 6 acted on. 
er | 
APCLALB ; 
oe 3 The first coordinate (planes) is specified; ‘ ) 
ae é therefore, the rotation is between planes. 2 
8 9 “ 
4112 The first element fete Argument A 
ae 15 in each plane is 
1 5 18 rotated one position 
1s between planes. 
29 24 The middle 
14 an element in each 
5 é 3 plane is rotated two 
ne positions between 
AGT 218 planes 
2 63 ; 
3 4 ; 
The second coordinate (rows) is specified; : 
L? 1.2 therefore, the rotation is between the rows. 
Li 15 
A tA 
14 418 pi | 
Rotation between rows of o 
20 21 the first plane —) 
23 2h Rotation between rows of % 
94 27 the second plane 
Rotation between rows of 
the third plane 
oe. 


The & Function: Transpose, Generalized Transpose 
/ 


at oN 
( } The & symbol is formed by overstriking the © symbol and the \ symbol. 
Monadic (One-Argument) Form: Transpose &B 


any expression. If argument B is a scalar or vector, the argument is unchanged by 


e The transpose function reverses the coordinates of argument B. Argument B can be 
) 
° the function: 


Qy 
v 


~ © ARCI 
C) ACI 


Kee Sel 234 3 4 


R 
23 <——— ———_ 2row 3-column matrix. 
uw & 4 
a of 
1 4<.——___—__-__—___——- row 2-column matrix 
ee 3 
fe td 
3 4 


Be? 3 Yer 2h 
k 


3 4 
% 8 
11 12 


wo LG 
1? 20 
23 Qh 


) 
C 3 15 The coordinates are reversed. 
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Dyadic (Two-Argument) Form: Generalized Transpose AXB 


The generalized transpose function interchanges the coordinates of argument B as 
specified by argument A. Argument B can be any expression. Argument A must 

be a vector or a scalar, and must have an element for each coordinate of argument B; 
also, argument A must contain all the integers between 1 and the largest integer 
specified. For example, to transpose the rows and columns of a matrix, argument A 
would be 2. 1: 


Re? Sel 2 34 5 6 
1&3 


To transpose the rows and columns of a 3-rank (three-coordinate) array, argument A 
would be 1 3 2: 


Bee 3 bers 


An array with two planes, three rows, and four columns. 


1 a. 9 
2 6 10 
3 7 ii 
4 8 12 The second and third coordinates have been interchanged,, 
forming an array with two planes, four rows, and three 
13 17 21 columns. 


14 418 22 
15 19 23 
16 20 2h 


— 
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The ? Function: Deal 


Monadic (One-Argument) Form 


See the Roll function earlier in this chapter under Primitive Scalar Functions. 


Dyadic (Two-Argument) Form: Deal A?B 


The deaf function randomly selects numbers from 0 through B-1 or 1 through B 
(depending on the index origin), without selecting the same number twice. Both 
arguments must be single positive integers. Argument A must be less than or equal 
to argument B; argument A determines how many numbers are selected. 


L?? 
207 


CP? 
v2 1 7 3 6 4 
TO? 
17 6 4 
TP? 
2? 644 SG 1 3 


ih 
td 
tr 
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The . Function: Decode (Base Value ) 


Monadic (One-Argument) Form 


There is no monadic form. OD) 


Dyadic (Two-Argument) Form: Decode A1B 
The decode function result is the value of argument B expressed in the number i = 
\ 


system specified by argument A. For example, to convert 1776 to its value in the 
decimal number system (base 10): 


16610 10 101.1 7 7 6 
L77é 


The following illustration shows how it was done: 
Argument A (number system) specifies the following: 


10 10 10 + 10 


Ten units in each of these positions 
equals one unit of the next position 
to the left. 


Argument B is a vector with these values: 


1 #7 #7 6 © 


The result is the same as doing the following: 


= 6 The units position always represents itself. 
7 x10 = 70 
7 x10x10 = 700 The value in the next position is multiplied 
1 x10x10x10 = 1000 by the rightmost value in argument A. 
1776 | 


The value in the next position is multiplied 
by the two rightmost values in argument A, 


and so on. 
The arguments must be numeric. If one argument is a scalar or single-element array, ‘ +) \ 
the other argument can be a scalar, vector, or other array. The result will have the > 


rank of the larger argument minus one. 


() 
NY 


= 
\ gi 
ae 


Shee 


foe 
fg 


lf either argument A or B is not a scalar, they both must have the same length, or 
an error results. 


Note: The value of the leftmost position of argument A can be zero, because even 


though there must be a value in that position, it is not used when calculating the 
result. For example: 


010 10 1021 7 7 6 
T7764 


If either argument is a scalar, the value of that argument is repeated to match the 
length of the other: 


191 3 25 


10 10 10 4 7 


If argument A is a vector and argument B is a matrix, argument A must have an 


element for each row of B: 


BRe2 Sel S 27 9 4 
kB 


49 WY 
10 10 4 8 
17 39 24 


If argument A is a matrix and argument B is a vector, each row of argument A is a 
separate conversion factor; argument B must be the same length as a row of 
argument A. The result will be a vector with one element for each row of 
argument A: 


At? Sel0 10 10 6 10 5 


A 
10 10 16 3= 3 
01% & 2 x5= 10 
Anil 2 3 1 x10x5 = 50 
123 63 63 
Artz 3 & 


234 119 
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If both arguments are matrices, each row of A (conversion factor) is applied to each 


column of B. The result is a matrix containing the converted values for each column 


of B: 

Ac? 3oe1d 10 10 20 10 5S 
Be3 2Qoel 2 26 3 3 
A 

10 10 10 

20 10 & 
i 

1 2 

2 & 

3 3 
AL’ 

123 243 

43 123 


The following examples convert hours, minutes, and second to all seconds: 


24 60 6041 30 15 


The following illustration shows how it was done: 
Argument A (number system) 
24 60 ‘ig 
60 units (seconds) equals one unit of 
the next position to the left. 


60 units (minutes) equals one unit of the 
next position to the left. 


24 units (hours) equals one unit of the 
next position. 


Argument B 
1 (hour) 30 (minutes) 15 (seconds) 


The result was obtained as follows: 


15 = 15 seconds 

30x 60 = 1800 seconds 
1x60x60 = 3600 seconds 
5415 seconds 


TS 
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The + Function: Encode (Representation) 


Monadic Form 


There is no monadic form. 


Dyadic Form: Encode ATB 


This function is the reverse of the decode function. The encode function result is 
the representation of argument B in the number system specified by argument A. 


Note: Be sure argument A is long enough to completely represent argument B or 
an incorrect answer results. 


For example, the representation of 1776 in the decimal number system (base 10): 
19 106 10 LOTL?76 
177 6 
The following illustration shows how it was done: 
Argument A (number system) specifies the following: 
10 10 10 10 


t { { { Ten units in each of these positions 


equals one unit of the next position to the 
left. 


Argument B has this value: 


1776 


99 


100 


The result is the same as doing the following: 


10x10x10 = 1000 [1776 
1000 
776 


10x10= 100 [776 
700 


Note: The value of the leftmost position of argument A can be zero. For example: 


0 10 10 1071776 
17 7 4 


If both arguments are vectors, the result is a matrix. Each column in the result con- 
tains the representation for each element of argument B expressed in the number 
system specified by argument A: 


10 10 711% S9 Qu 


10 S + 2% 36 24 


on 
+3 
nla Sle 


a 


If argument A is a matrix and argument B is a scalar, then the result is a matrix. 
Each column of the result contains the values of argument B expressed in the 
number system specified by the corresponding column of argument A: 


AtS 2010 20 10 10 10 8 


RATE «~—_—___________. The result can be transposed so that 
2 3 each row represents the values of 

2 & 3 argument B expressed in the number 

systems specified by argument A. 


If argument A is a scalar or vector and argument B is a matrix, the result is a matrix 
or N-rank array, with one plane for each element of argument A: 


Atl 10 10 
Be2 2e123 456 789 000 
A 

10 10 10 
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A SPE 


Encode 


If both arguments are matrices, the result is an N-rank array, with one plane for 
each element of argument A. Each column of argument A represents a number 


system: e 


At2 2e10 20 
A 


10 20 
16 20 


2p 99 B88 77 6é 


Result of the number system in 
column 1 of argument A 


Result of the number system in 
column 2 of argument A 


The following example converts seconds to seconds, minutes, and hours: 


24 60 60 1+ S4is 
1 30 15 


Yee a 
LD 
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The following illustration shows how it was done: 
Argument A (number system) 


24 60 60 


ees units (seconds) equals one unit of the 


next position to the left. 


60 units (minutes) equals one unit of the 
next position to the left. 


24 units (hours) equals one unit of the 
next position to the left. 


Argument B 
5415 (seconds) 


The result was obtained as follows: 


60 x 60= 3600 [5415 


60 
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The « Function: Membership (2) 


Monadic (One-Argument) Form 


There is no monadic form. 


Dyadic (Two-Argument) Form: Membership AcB 


The membership function result is a 1 for each element of argument A that can be 
found among the elements of argument B and a 0 for every element that cannot be 
found. The shape of the result is the same as the shape of argument A. 

Arguments A and B can be any scalar, vector, or array: 


Wel 23 4 5 


1 
L.$e1 2 3 4 §& 
0 
‘A’ se BANNA' 
1 
"ABC «BANANA ' 
1 i 0 
At? 2oel 3 5 7 
Bel Wel? WS 78 
A 
1 3 
ow 7 
i 


12 45 76 12 
HO 78 12 4S 
78 12 45 78 
L2 4S 78 12 


Ack 
0 0 
0 0 
Be Yol 2 &u 5 7 
A 
3 
37 
k 
1248 § 
‘812 
4S 7 8 
L2u & 
Ack 
L oO 
Lo 


(> 
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The — Function: Matrix Inverse, Matrix Divide 


The [3 symbol is formed by overstriking the [] and the + symbols. 


Monadic (One-Argument) Form: Matrix Inverse 


The matrix inverse function inverts a nonsingular matrix or computes the pseudo- 
inverse of a rectangular matrix. The result is a matrix. Argument B must be a 
numeric matrix, and the number of columns must not exceed the number of rows. 
The number of columns in the argument is the number of rows in the result, and 
vice versa. 


If argument B is a nonsingular matrix, EIB is the inverse of B. If the matrix does 
not have an inverse, then DOMAIN ERROR results: 


Ae2 2el 35 7 


Ha 
“O. 875 0.875 
0.625 “Q,4125 
Ae? 2Qol 2 3 S 


ra 


: 
fy, 
sa 


BA 
NOMAIN ERROR 
Ba 


“A 


lf argument B is a rectangular matrix, EJB is the pseudoinverse of the matrix (least 
squares solution): 


Ac3 203 Sl 22 4 


A 
3.5 
12 
9 4 
A 
im “ih “2 
“4 0.4 1.2 


Dyadic (Two-Argument) Form: Matrix Divide AJB 


The matrix divide function solves one or more sets of linear equations with co- 
efficient matrices. Argument B must be a numeric matrix. The number of columns 
in B must not exceed the number of rows. Argument A must be a numeric vector or 
a matrix. The length of the first coordinate of argument A must equal the length 

of the first coordinate of argument B. 
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The rank of the result is the same as the rank of argument B. The length of the 
first coordinate of the result is the same as the number of columns in argument B. 
If argument A is a matrix, then the second coordinate of the result is the same 
length as the second coordinate of argument A. 


If argument B is a square matrix and argument A is a vector, then the result is 
the solution to the set of linear equations with coefficient matrix B and right-hand 
sides A: 


Po LF 


3 
wm ODO 
oe 
> > 
ane 
Fast sy (2 
MG 
as 
~~ 
Ss 8 
ce 


If argument B is a square matrix and argument A is a matrix, then the columns of the 
result are the solution to the sets of linear equations with coefficient matrix B and 
right-hand sides equal to the columns of A: 


A 
26 16 
9 & 
B 
3.5 
12 
ARIE 
7 2 
1 2 


If argument B is rectangular, then the result is the least squares solution to one or 
more sets of linear equations: 


ACS Beld (4 “24 7 “1 
BeZ 2p3 S 1 2 2 4 


A 
i eo. es 
eee | 
11 24 72 
B 
3.5 
1 2 
2 4 
AHL 
“he ay: 
4.6 7 “4 
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The ¢ Function: Execute 


The © symbol is formed by overstriking the 4 and the o symbols. 


Monadic (One-Argument) Form: Execute oB 


The execute function evaluates and executes argument B as an APL expression. 
Argument B can be any character scalar or vector. 


Ae’ 1 +2' 
A 


1+2 


4A -_~~--—-— The character vector in the variable A is executed. 


3 


Ce’ (CAK2) 4° B82) 0%, 5° 
AtS 

Bel 

+C 


oS 


ACS 

BEB 

aC 
10 


Dyadic (Two-Argument) Form 


There is no dyadic form. 
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The ? Function: Format 
N 


The ¥ symbol is formed by overstriking the T and the o symbols. 


Monadic (One-Argument) Forms: Format 7B 


The monadic format function result is a character array that is identical in appear- 
ance to the one displayed when the value of argument B is requested: 


Bes “eile 


& 
1 2 3 4 
5 & FF 8 
416 11 12 
KerB 
x 
1 2 3 & 
5 & % &+————This matrix is a character matrix. 
9 10 dt 12 


Dyadic (Two-Argument) Form: Format At B 


The dyadic format function result, like the monadic format function result, is a 
character array. However, argument A is used to control the format {the spacing and 
precision) of the result. Argument A is a pair of numbers: the first number deter- 
mines the total width of the format for each element and the second number deter- 
mines the precision used. 


If the precision number is positive, the result is in the decimal form, with the number 
of decimal places specified by the precision number. If the precision number is 
negative, the result is in scaled form, with the number of digits to the left of the E 
specified by the precision number: 


BES 2e12.34 "“B4H.567 0 12 "0.26 “123.45 


B 

12. 34 “Su. S67 

0 12 

“O.24 “4123.45 
X¢9 25K 
x 

Le. Su “Bu? 
60 12.00 


(left margin) 


Cee “298 

(. 
1.32602 “S. 5801 
0.GE 701 42,2601 
“2. 6E 701 "1.2602 


\ Width of nine positions 
(left margin) 


1f the width entry in argument A is zero, the 5100 uses a field width such that at 
least one space will be left between adjacent numbers. If only a single number is used, 
a width entry of zero is assumed. 


Ee 29k 

_ 
12.34 "34,57 
.00 ©612,00 
[7 26) 7123.45 


ee 
eae: Width of eight positions 


(left margin) 
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Each column of an array can be formatted differently by using a control pair in 
argument A for each column of the array. 


Fea 2 46 Ish 
re 
12.3 "Sud 
00 2, 


ea 123.4 


Width of six positions 


(left margin) 


Notes: 


1. If the [JPW system variable is set to an invalid value, [JPW IMPLICIT ERROR will 


result when the format function is used. 
2. Even if the specified format causes all of the significant digits to be truncated, 
the sign of the original number is retained. For example: 


4% 24", 0004 


(i. 


The sign is retained. 


APL OPERATORS 


An APL operator applies one or more dyadic primitive scalar functions to arrays. 
The operators are reduction, inner product, outer product, and scan. 


Reduction Operator (/) 


The symbol for the reduction operator is /. The forms of reduction are: @/ {1)B or 


@ys or @zB, where(#)can be any primitive dyadic scalar function that is applied 
between each of the elements of a single vector. 


The rank of the result is one less than the rank of argument B, unless argument B 

is a scalar or a single-element vector; then the result is the value of the single element 
of argument B. When argument B is a vector, the reduction of that vector is the same 
as putting the primitive dyadic function between each of the elements: 


Bel 2 3 4 
+/ 
10 
L+2+ 344, 
10 


If argument B is an empty vector (see Chapter 3), then the result is the identity 
element, if one exists, for the specified function. The identity elements are listed 
in the following table: 


Identity Element Table 


Dyadic Identity 
Function Element 


Times 
Plus 
Divide 
Minus 
Power 
Logarithm 
Maximum 
Minimum 
Residue 
Circular 
Binominal 


le bX 


“7.237... E75 
7.237... E75 


* 
® 
r 
L 
| 
12) 
! 


Nand 

Equal to 

Not equal to 
Greater than 
Not Jess than 
Less than 

Not greater than 


Apply for 
logical 
arguments 
only 


A AN V Wi >e<t> < 
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When argument B is a multidimensional array, the [I] index entry is used to specify 

the coordinate acted on. If the index entry is omitted, the last coordinate (columns) 

is acted on. tf the@) #B iform is used, the first coordinate is acted on. Indexing along a Ra 
nonexistent coordinate will result in INDEX ERROR. : +) 


When argument B is a multidimensional array, the coordinate of argument B that is 
acted on is eliminated: 


he? Set 2 Bu 8 & ae 


lL 2 4 
i i ee) 
+ fi 
4& 15 Thee last coordinate (columns) is assumed; 
t/P 21 therefore, the reduction is between columns: oo 
& 1S | 2 
+/B 1+2+3=6 
3 7% 9 
eA The second coordinate (in this case, columns) 
oF gS is specified. 


Be? 3 Worse 
The first coordinate (rows) is specified; 


“yo2 3 | therefore, the reduction is between rows: 
S&S & %F & 
9 10 41°42 1 2 3 
4 58 6 | 
1 LG 5 7 9 
17 28 19 20 7 
21 22 23 24 : +) 
#/ 18 . 
: 416 18 2) The first coordinate 
22 24 26 28 (planes) is specified; : 
SQ 3 By BG therefore, the reduction 
tte 0 is between planes. 
ik 
0) 
a ft 
1 
P/k 


"2 QFE RS _) | 
\ i 


If argument B is an array that has a coordinate whose dimension is zero, then reduc- | 
tion along that coordinate yields an array whose elements are equal to the identity 
element for the function. The identity element for each function is given in the 


preceding table. oe 


112 


Inner Product Operator (.) (J 


< ; The symbol for the inner product operator is , (period). The inner product opera- 
tor is used to combine any two primitive scalar dyadic functions and cause them to 
operate on an array. An example of its use would be in matrix algebra, in finding 
the matrix product of two matrices. The form for inner product is: A® ©. 
where) and ae any primitive scalar dyadic functions. Function@)is performed 
C a first and then(@) reduction is applied between the results of function@). 
} 


The result is an array; the shape of the array is all but the last coordinate of 

argument A catenated to all but the first coordinate of argument B ("14 pA),(14 9B). 
If argument A and argument B are matrices, the elements in each row of argument A 
are acted on by the elements in each cotumn of argument B: 


©) At2 29! 
2P 


2 3 4 
Be? 534678 
Aa 
i 
4 | 
8 (1x5) + (2x7) = 19 | 
F At. xE 
22 
“43 30 
Co The above example is the same as doing the following for each element in the result: 


CUXSI+C2x7) 


19 

(1%6)4+(2x8) 
22 

CBXS + CURT) 
43 

(3x6) +(4X8) 
50 
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1. Either A or B is a scalar. 


Ate2 2e1 23 4 
Bes 
A 


i 


2. The last coordinate of argument A is the same length as the first coordinate 
of argument B. (If both are matrices, the column coordinate of argument A 
is the same length as the row coordinate of argument B.) 


A+. xB 


61 68 75 
99 106 117 
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The shapes of arguments A and B must conform to one of the following conditions: 


If argument A and argument B are N-rank arrays, the elements in each row of 
argument A are acted on by the elements in each plane of argument B: 


AG? 2 2ei8 


A 
1 2 
3 4 
@ } 5 6 
- 7’ 8 

Ree 2 2p84+18 
& 
9 10 
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Outer Product Operator (0 .) ({] 


The symbols for the outer product operator are o,. The outer product operator 
causes a specified primitive scalar dyadic function to be applied between argument A 
and argument B so that every element of argument A is evaluated against every ele- 
ment of argument B. The form of the function is: Ao DB, where(f )is a dyadic 
primitive scalar function. Arguments A and B can be any expressions. Unless 
argument A is a scalar, the shape of the result is the shape of argument A catenated 
to the shape of argument B. If argument A is a scalar, the shape of the result is the 
same as the shape of argument B: 


Ata 
Bei 2 3 4 
A 


B 
i234 

A, xk 
24u 68 
Aci 2 3 
Be3 4 & 
A 


BR 


Ae, x 
y OS 
8 10 


12 15 


The above example is the same as doing the following for each element in the result: 


1x3 
3 

1x4 
yy 

1x5 
& 

2x3 
& 

2x 
8 

2x5 
10 

3x3 
9 

Sx 
12 

3XxS 
1S 
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016 8 
4 9 

oe et oo OT 
6 8 2 
9 ¢ 


hee 


h~O 
Cli? & 


69S Low 
he & THe Gay 


829 

She 
H+ ' oY 
9GQunek Ee tee Say 
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:sajdwexa aioyy 


: ‘) 
i 
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Scan Operator (\) 


The symbol for the scan operator is \. The forms of scan are: (f)\[ 1] B,@)\B or 
@x8, where @) can be any scalar dyadic primitive function and argument B is a 
numeric vector or other array. The scan operator, like the reduction operator, 
operates on the elements of a single vector, and is the same as putting the primitive 
dyadic function between each of the elements. But the scan operator accumulates 
the results as the operation is repeated along the vector. The shape of the result is 
the same as that of the input argument: 


#\) 2 34 § 
13 46410 15—-—— This result is the same 


+1 as doing the following for 
1 each element in the result. 
+142 
3 
14243 
& 
+1 4243+ 
10 
OO A OG eo hd 
13 


When argument B is a multidimensional array, the [1] index entry is used to specify 
the coordinate the scan is to proceed along. If the index entry is omitted, the last 
coordinate (columns) is acted on. If the) \B form is used, the first coordinate 

is acted on. 


Bes Yorl2 
i 
1 2 3 4& 
3 & 7 8 
9 10 11°12 
+\f 1 1B—<—————— The first coordinate (rows) is specified; therefore 


2 3 4& the scan is between rows. 


8 10 12 
18 22 24 
+\ 0 2 1—<——_———_——— The second coordinate (columns) is specified; 
; therefore, the scan is between columns. 


+\B 
1 3 6 10 
9 11°18 26 
9 19 30 42 
+E 
1 2 3 4& 
6 8 10 12 
15. 18 22 24 


AC2 3 Yer2y 


2 3 
& ? 8 
18 11 12 


14615 16 
18 19 20 
ee 23 Bu 


+\ 017A «—__————The first coordinate (planes) is specified; 


2 3% therefore, the scan operation is between planes. 
& 4% 8 

10 it ae 

16 18 20 


P24 26 28 


32 3H 36 


+\0 2A <———————- The second coordinate (rows) is specified; 


2 6 | therefore, the scan operation is between rows 
8 10 12 for each plane. 


18 21 24 


14 1S 146 
32 Bu 34 


wh Su SS? 60 


+\ 03. A-<—_—————- The third coordinate (columns) is specified; 


3 6 10 therefore, the scan operation is between columns 
11°18 26 for each plane. 
19 30 42 


a? He SB 
$5 S4 74 
43 64 90 


A 
wr 


Scan 
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SPECIAL SYMBOLS 


Assignment Arrow < 


The assignment arrow causes APL to evaluate everything to the right of the arrow 
and associate that value with the name to the left of the arrow. For example, 
A<2+3 means that 2+3, or 5, is assigned to the name A. When A is used in a later 
APL statement, it has a value of 5. 


Branch Arrow > 


The branch arrow is used for the following: 


@ To change the order in which the statements are executed in a user-defined 
function. See Branching in Chapter 6 for more information on branching. 


© To resume execution of a suspended function (see Suspension in Chapter 7). 


@ To clear the state indicator (see State /ndicator in Chapter 7). 


ce 


The quad is used to ask for input and to display output. To display output, the quad 
must appear immediately to the left of the assignment arrow. The value of the APL 
expression to the right of the arrow is assigned to the quad and will be displayed. 

For example: 


at [Jeu +s 


The 7 displayed is the value assigned to the quad. The 12 is the final evaluation of 
the APL expression. 


When used to ask for input, the quad can appear anywhere except to the immediate 
left of the assignment arrow. Execution of the expression stops at the quad and re- 
sumes when an expression is entered to replace the quad. When a quad is encountered, 
the quad and colon symbols ({]: ) are displayed to indicate that input is requested. 

For example: 


2aXf] 
(I: 

4. 
100 


See Chapter 6 for more information on quad input or output within a user-defined 
function. 


U 


Quad Quote [ 


( J The quad quote symbol is formed by overstriking the quote symbol ' and the quad 
symbol []. The quad quote operates the same way as the quad when requesting 
input, except that the data entered is treated as character data. For example: 


Xen 


C ‘ CAN'T! 


CAN'T" 
Xe 

CANS TT" 
X 


C ‘ CAN'T ; 


Note: \f asystem command is entered for a quad quote input request, the system 
command is treated as a character string and will not be executed. 


See Chapter 6 for more information on quad quote input or output within a user- 
defined function. 


( ‘ The comment symbol is formed by overstriking the q symbol and the o symbol. 
es The comment symbol must be the first nonblank character in a line and indicates 
that the line should not be executed. For example: 


VPLUSE ILIV 
VOONE PLUS TWO 
Rid oaTHeE PURPOSE QF THIS FUNCTION IS 
C20 aTQ ADK TWO NUMBERS TOGETHER ! 
Cs ONE + TWO 
V 


12 PLUS 3h 
ey 
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Parentheses () 


Parentheses are used to specify the order of execution. The order of execution is 


from right to left with the expressions in parentheses resolved (right to left) as they \ 


are encountered. For example: 


B+ xs 
oe 
CB+ KG 


4? 


Note: When a value is assigned to a variable within parentheses and is used as the 
argument for a function, the value assigned to the variable is used by the function, 
regardless of any previous value assigned to the variable. For example: 


Atl. 
CAGCBI+A 
& 
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Chapter 5. System Variables and System Functions 


SYSTEM VARIABLES 


; System variables provide controls for the system and information about the sys- 
@ ) tem to the user. These variables can be used by a function as arguments the same 
aa as any variable. 


The following is a list of the system variables and their meanings. A complete des- 
cription of each follows the list: 


C . ) Variable Name Meaning : 
(jcT Comparison tolerance 
mite) Index origin 
(PP Printing precision 
{JPW Printing width 
(JRL Random link 
TLC Line counter 
(WA Workspace available o 
C]LXx Latent expression = 
DAV Atomic vector > 


4 } Notes: 
a 1. To find the value assigned to a system variable, enter the variable name. The 
value assigned to the (JCT, (IO, GPP, PW, [DJRL, and [JLX system variables 
can be changed by using the assignment arrow (<). For example, entering 
(J!0<-0 assigns the value 0 to the [JIO system variable. 

2. The use of any system variable causes an entry to be made in the symbol table 
for that symbol. Therefore, if the symbol table is full, a SYMBOL TABLE FULL | 
error is generated. , 
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Comparison Tolerance: []CT 


The value of this variable determines the maximum tolerance (how different the two 
numbers must be to be considered unequal) when using any relational function and 
at least one argument is a noninteger. For example, two numbers are considered un- 
equal if the relative difference between the two numbers exceeds the comparison 
tolerance value. The following illustration shows how the comparison tolerance 
works with the relational functions: 


a Value of argument A 


Real number line 


The relationship of 
any value (argument B) 
to argument A 


Note: The [JCT function considers any number in decimal form a noninteger. For 
example, 1000 is an integer and 1000. is a noninteger. 


The value of the comparison tolerance variable also affects the floor and ceiling 
functions. If an integer is in the range of the right argument plus or minus the 
comparison tolerance, the integer is the result. For example: 


w“” 
2 
a 

oO 
— 

ise 
> 


NmctTe. 03 


L2.98 2.98 + .03 = 3.01 (The integer 3 is in the range of 
3 2.98 t .03.) 
L2.9& 2.96 + .03 = 2.99 
3 
£3.03 3.03 - .03 = 3 (The integer 3 is in the range of 
3 3.03 * .03.) 
r3.04 3.04 ~ .03 = 3.01 
3 


In a clear workspace, the comparison tolerance value is set to 1E° 13 (see 
Chapter 3 for an explanation of scaled representation). 
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Index Origin: [10 


The value of this variable determines the index origin. The value can be either O 


( : or 1, which means that the first component of a vector or array is indexed with 
Se a 0 or 1, depending on what the value is set to. In a clear workspace, the value 
is set to 1. 


The functions affected by index origin are indexing ([]), index generator (1), 
aie index of (1), roll (?), deal (?), grade up (4), and grade down (Y). 


ide 0 


7? X by d D3 % t 
04.2 : ore eee The index vatues represented by the 


gw B result start from O rather than 1. i 
hea a i | 


a 
= ' 4230 
< Z ye 
7 ee ae 
iaed 


Note: All other examples in this manual are shown with the index origin set to 1. 


Printing Precision: [PP 


The value of this variable determines the number of significant digits displayed for 
decimal numbers and for integers with more than 10 digits. The value of this var- 
mo iable does not affect the internal precision of the system. The value can be from 
( \ 1 to 16. In a clear workspace, the value is set to 5. This means that the number 
ai of significant digits displayed for decimal numbers or for integers with more than 
10 digits is limited to 5 and scaled representation (see Chapter 3) is used (if re- 
quired). For example: 


wn 
2 
Te} 

ise) 
= 

oO 
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Decimal Number Examples 
12345.6 
1234 46s— Five digits are displayed and the 
123.67 least significant digit is rounded off. 
L2S4s 
L23456,.7 
1.23465 


¢q \ ;——_—— Integer Examples 


1234567890 
1234567890 | 
12345678901 
1. 2346610 
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Print Width: [PW 


display and printer. The value can be from 30 to 390. In a clear workspace, 
the value is 64. If this variable is set to a value greater than the length of one 
line across the display or printer, the output will overflow onto the next line. 


The value of this variable determines the length of the output line for both the -) 


Random Link: ORL y 


The value of this variable is used in generating random numbers. The value can 
be from 1 to 224-2. Ina clear workspace, the value is 7*5 (16807). This value 
is changed by the system each time a random number is generated. 


Line Counter: [LC ( + 


This variable is a vector. The first element is the function statement number 
currently being executed. The next element is the number of the statement 
(in another function) that invoked the function being executed. The remaining | 
elements follow the same pattern. The user cannot set this variable but can dis- 
play it. Attempts to modify [JLC are ignored by the system. For more informa- 
tion on [JLC, see Chapter 7. 


Workspace Available: [}WA 


wn 
cy 
Bo} 
oO 
= 
o 
> 


The value in this variable indicates the amount of unused space (the number of a 
unused bytes) in the active workspace. The user cannot set the value for this ‘ > 
variable but can display it. Attempts to modify [WA are ignored by the system. i, 


Latent Expression: [LX 


A character vector assigned to the latent expression variable is automatically 
executed as an expression by the execute (#) function when a stored workspace 
containing the latent expression is loaded into the active workspace. 


Uses of the latent expression variable include the form [J[LX<‘G’, where a func- 
tion named G is executed when the stored workspace is made active. The form 
[ILX<"“MESSAGE WHEN WORKSPACE IS MADE ACTIVE” displays the mes- 
sage MESSAGE WHEN WORKSPACE IS MADE ACTIVE when the stored work- S 

space is loaded into the active workspace. ) 


Atomic Vector: [AV 
The atomic vector is a 256-element vector that includes all possible APL charac- 


ters. The following example shows it can be used to determine the indices of any ) 
known characters in the vector (assuming [IO is 1): 


HAVA ARC! 
87 88 89 ate 
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cid toes 
C2] JeCe, B+lep.a 
[31 aSTATEMENT 5 CATENATES THE ARGUMENTS TOGETHER 
C4] aAND ALSO PUTS @ BLANK CHARACTER BETWEEN EACH CHARACTER 
ES] QUTPUTEC(2xJ)@ 1 OO\CAD, CBD 
[6] aSTATEMENT 8 PLACES A LINE FEED CHARACTER (OAVL1607) 
C7] aN EACH BLANK ELEMENT OF OUTPUT 
C8] QUTPUTC2x.J-17eMAVE1607 
[9] aSTATEMENT 11 PLACES A CURSOR RETURN CHARACTER (MAVEL572) 
C107 aAFTER THE FIRST NAME 
11] OUTPUTC2xTIenAVeLs73 
[i2] aNOW WHEN THE CHARACTER VECTOR OUTPUT IS DISPLAYED, : 
(131 AAPL RESPONDS WITH THE APPROPRIATE ACTION WHEN A LINE c 
C14) aFEED CHARACTER (DAVE1607) OR CURSOR RETURN CHARACTER 8 
£15] aCQAV£iS7]) IS ENCOUNTERED IN THE CHARACTER STRING & 
Ci6] OUTPUT 
v 
‘VIRGINIA’ NAMES ‘WINTER’ 
V 
t 
R 
G 
I 
N 
I 
A 
W 
I 
N 
‘ 
E 
R 


Appendix D contains a list of the characters in the atomic vector. The most com- 
mon use of the atomic vector is for generating line feed and cursor return charac- 
ters to arrange output. The following example shows how the atomic vector can 
be used to generate these characters. 


The function called NAMES will display your first and last name. Each name will 
start at the left margin and each character in the name will-be one line lower than 
the previous character: 


VNAMESC DIV 
VA NAMES B;OUTPUT; I; 0g; 010 
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SYSTEM FUNCTIONS 


System functions are used like the primitive (built-in) functions; they are monadic 
(one argument) or dyadic (two arguments) and have explicit results. 


Following is a list of the system functions and their meanings. A complete des- 
cription of each follows the list: 


System Function Meaning 
[]JCR name Canonical representation 
(FX name Fix 
QJEX name Expunge 
ONL class Name list 
character (NL _ class Name list beginning with the specified character 
[INC name Name classification 


The (CR Function: Canonical Representation 


wn 
c 
co) 
Poi 
oO 
Cc 
ne} 
ive 


ee 
C2] 
C3 
Cu 
od 
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The [ICR function formats a user-defined function into a character matrix. This 
function is monadic (takes one argument); the argument for the [JCR function 
must be a scalar or vector of characters representing the name of an unlocked 
user-defined function. For example, you have the following user-defined function: 


ReINTG A 

ReApd 

Te, 
START: RET TeA 

Tet+1 

CLEA /STARTYV 


The function INTG is used to create a vector whose length and contents are spe- 
cified by the input argument: 


HY 


4 


INTG & 
1. 
INTG 7 


777777 7 
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2) 


To format the function INTG into a character matrix and assign the matrix to a 
variable named VAR, the following instruction would be entered: 


a VAR¢MCR ‘INTG' 


VAR is displayed as follows: 


e VAR 


Re INTG A-~~————Frirst row is line 0 of the function. 
ReA po 

Te4 

START: RELIeA 


9 Lele 
¢€ +¢LEA)/START 


ePVAR -—————— Indicates VAR is a 6-row, 12-column matrix. 
6 12 


Notice that the line numbers are removed along with the opening and closing V. 
Also, labels within the function are aligned at the left margin. 


Now matrix VAR can be changed by simply indexing the elements: 


VAREH; 1216 '° 1" The element in row 4, column 12 


< ; VAR is changed to |. 
a Re INTG A 
Re Apo 
Te4. 
START: ROT IeL 
Tet+1 


3*(TEA/START 


To format a matrix created by the [JCR function into a user-defined function, use 
the [JFX function. The (JFX function is discussed next. 


se 
; The []FX Function: Fix 


The [JFX function forms (fixes) a user-defined function from a character matrix 
(that was most likely formed using the [JCR function). This function is monadic 
(takes one argument); the argument for the (JF X function is the name of a matrix 
to be formed into a user-defined function. If an error is encountered (invalid char- 

C ‘ acter, missing single quote, etc) as the matrix is being formed into a user-defined 

function, the operation is interrupted, the number of the row in error minus one 

is displayed, and no change takes place in the active workspace (the user-defined 
function is not formed). 


129 


wn 
c 
2 
rrr 
(>) 
c 
3 
uw 


To show how the [JFX function works, we will use the matrix created in the pre- 


vious example (see 


the [JCR function). To form matrix VAR into a user-defined 


function, the following instruction would be entered: 


FX VAR APL responds with the name of 


INTG 


The [JFX function 


the user-defined function. 


4 


produces an explicit result (the array of characters that repre- 


sents the name of the user-defined function), and the original definition of the 
user-defined function (if there was one) is replaced. 


Now the function INTG can be displayed and executed: 


VINTGCHIV 
VO R¢eINTG A 
Cag ReAed 
C2] Ted 
3] START: RETIeT 
ru Ter+d 
CS +CTSA)/START 
V 
INTG 3 
12345 
INTG 8 


1234 5 


678 


Following is an example that shows how the [JCR and []FX functions can be 
used to modify the definition of a function within another function. This 
example will use the following user-defined function: 
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ET 


VINTGCOIV 
¥ REINTG A 
Cid -ReApo 
C2) red 
C3] START: RELICA 
CH] 9 feT+l 
C5] 9 -+CL£A)/START 
v 
INTG 4 
wu y & 


= 
‘ 
\ ! 
\, F 


Format the function into a matrix: 


M¢efICR ' INTG‘+*—Canonical Representation 
MM 


ReINTG A 
ReApo 

Ted 

START: RET IAA 
TeT+d 


4 (TEA)/START 


Now, define a function called CHANGE, which, when performed, will execute a 
Modified version of INTG. 


INTG is made a local function so that the 
md sce wns global version will not be change (the local 
¥ CHANGE; INTGSY" version will not exist after the execution of 


: Me targa T" CHANGE is complete). 
aes . Nae ig aa: Assign the explicit result of the (FX function 
Vv to Y so that it will not be displayed. 


Execute the modified version of INTG. 


INTG 4 «———_—— Execute INTG. 
how yy 

CHANGE «—————— Execute CHANGE. 
12 3 4 

INTG  «—————— Execute INTG again. 


yoy & &y 
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The (EX Function: Expunge 


The [JEX function erases global objects or active local objects specified by the 
argument from the active workspace (unless the object is a pendent or suspended 
function). This function is monadic (takes one argument); the argument must be 
a scalar, vector, or matrix of characters. 


Thus, if object AB is to be erased, the following instruction would be entered: 


TEX "ARS 


Note: Even after the object is erased, the name remains in the symbol table (the 
part of the active workspace that contains all of the symbols used). 


The [{JEX function returns an explicit result of 1 if the object is erased and a O 
if it is not erased or if the argument does not represent a valid name. When the 
DEX function is applied to a matrix of names (each row represents a name), the 
result is a logical vector (zeros and/or ones) with an element for each name. The 
(EX function is like the )JERASE command, except that it applies to the active 
referent (see Chapter 6, Loca/ and Global Names) of a name. 


Note: \f the object being expunged is a shared variable (see Chapter 8), it will 
be retracted. 


The ONL Function: Name List 


The [INL function yields a character matrix; each row of the matrix represents 
the name of a local (active referent) or global object in the active workspace. 

The ordering of the rows has no special significance. The [JNL function can be 
either monadic (takes one argument) or dyadic (takes two arguments); in both the 
monadic and dyadic forms, the right argument is an integer, scalar, or vector that 
determines the class(es) of names that will be included in the result. The values 
for the input argument and associated classes of names are: 


Argument Name Class 
1 Names of labels 
2 Names of variables 
3 Names of user-defined functions 


It does not make any difference in what order the class of names appears in the 
argument. For example, (INL 2 3 or (JNL 3 2 results in a matrix of all the vari- 
able and user-defined function names. 


In the dyadic form, the left argument is a scalar or vector of alphabetic charac- 
ters that restricts the names produced to those with the same initial character 
as that of the argument. For example, ‘AD‘ [JNL 2 results in a matrix of all 
the variable names starting with the character A or D. 


Uses of the [JNL function include: 


®@ Erasing objects of a certain class (and also beginning with a certain character). 
For example: 


MEX ‘B’ QNL 2 
erases all the variables whose names start with B. 


@ Avoiding the choice of a name that already exists. 


The [}]NC Function: Name Classification 


The [JNC function is monadic (takes one argument); the argument isa scalar or 
array of characters. The result of the function is a vector of numbers represent- 
ing the class of the name given in each row of the argument. The classes of names 
are as follows: 


Result Meaning 
0 Name is available for use 
1 Name of a label 
2 Name of a variable 
3 Name of a function 
4 Name is nonstandard (not available for use) 
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APL provides an extensive set of primitive functions; nevertheless, you may want 
a function to solve a special problem. APL provides a way to create a new func- 
tion, called function definition. During function definition, you use existing APL 
functions to create new functions called user-defined functions. 


Normally, the 5100 is in execution mode; that is, after a line has been entered 
and the EXECUTE key pressed, the 5100 executes that line. To define a func- 
tion, the mode must be changed to function definition mode; after the function 
is defined, the mode must be changed back to execution mode before the func- 
tion can be executed. The mode is changed by entering the V (del) symbol. The 
first V changes the mode to function definition mode; the second V indicates the 
end of function definition and changes the mode back to execution mode. 


MECHANICS OF FUNCTION DEFINITION 
The following steps are required to define a new function: 
1. Enter a V followed by the function header (see Function Header in this 


chapter). After the function header is entered, APL responds with a 
[1] and waits for the first statement of the function to be entered: 


VHOME SCORE VISITOR (function header) 
Cig. 


2: Enter the statements that define the operations to be performed by the 
function. As each line is entered, APL automatically responds with the 
next line number: 


¥ HOME SCORE VISITOR 


Ci ‘THE FINAL SCORE TS: ° 
2c +/HOME 

C34 TO" 

Cu +/VISTTOR 


Note: During function definition mode, the print width (see []PW system vari- 
able in Chapter 5) is automatically set to 390. The print width returns to its 
original value when the function is closed. This prevents problems that occur 

when editing statements that exceed the print width. Editing statements are 
discussed later in this chapter. If a user-defined function contains a statement 
that is greater than 115 characters in length, that statement cannot be edited and 
the function cannot be written on tape. (See []CR and [JFX in Chapter 5 for 
information on changing a user-defined function to a matrix.) 


OD 


C) 


Function Header 


3. Enter another V when the function definition is complete. The closing V 
may be entered alone or at the end of a statement. For example: 


Cue +/VISTTORY 
or 


pad Vv 


Note: \f the closing V is entered at the end of a comment statement, which 
begins with a @ symbol, the V will be treated as part of the comment and | 
the function will not be closed. 


The function header names the function and specifies whether a function has no 
arguments (niladic), one argument (monadic), or two arguments (dyadic). 


Note: Function names should not begin with SA or TA, because SA and TA are | 
used for stop and trace control (Stop Contro/ and Trace Control are discussed 
later in this chapter). 


The function header also determines whether or not a function has an explicit 
result. If a function has an explicit result, the result of the function is tempor- 
arily stored in a result variable (names in the function header) for use in caicula- 
tions outside the function. The result variable must be included in the result 
statement (the statement that determines the final result of the function) as well 
as the function header. For example: 


6 
v ; = 
ri Result Variable c 
Le 
? The result of the function is 
1043 PLUS ee temporarily stored in the re- 
17 sult variable so that it can 


be used by another function. 


User-defined functions that do not have an explicit result cannot be used as part 
of another expression. For example: 


YX PLUSI Y 
i XtV¥ 
L043 PLUSI 4 
7 
VALUE ERROR 
1043 PLUS & 


A 
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The following table shows the possible forms of the function header: 


Format of Header 
Type No Explicit Result Explicit Result 


Niladac VNAME V R<-NAME 
Monadic VNAME B V R“NAME B 
Dyadic VA NAME B VR+A NAME B 


Number of 
Arguments 


There must be a blank between the function name and the arguments. Also, the 


same symbol cannot appear more than once in the function header; thus, 
Z<FUNCTION Z is invalid. 


For user-defined functions, the order in which the arguments are entered is 
important. For example, assume that ZX DIVIDE Y represents a function in 


which Z is the result of X+Y. Now if 20 DIVIDE 10 is entered, the result is 2. 


However, if 10 DIVIDE 20 is entered, the result is 0.5. 


Branching and Labels 


ae Statements in a function definition are normally executed in the order indicated 
( by the statement numbers, and execution terminates at the end of the last state- 
ment in the sequence. This normal order can be modified by branching. 


Branching is specified by a right arrow (+) followed by a label (name) that speci- 
fies the statement that is to be branched to. For example, the expression 
a —>START means branch to a statement labeled START. When assigning a label 
C to a statement, the label must be followed by a colon (:) and must precede the 
ot statement. The colon separates the label from the statement: 


C * C29 START: Nene 


CS ASTART 


In the previous example, the label START is assigned to the second statement in 
Poe the function. In other words, START has a value of 2; however, if the function 
( \ is edited and the statement is no longer the second statement in the function, 
ae i START will automatically be given the value (or statement number) of the new 
statement. (See Function Editing later in this chapter.) 
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Labels are local to a function—which means they can only be used within that 
function. Following are some additional rules that apply to the use of labels: 


@ They must not appear in the function header. 
@ You cannot assign values to them. 

@ They can be up to 77 characters in length. 

@® They cannot be used on comments. 


@ When duplicate labels or labels that duplicate a local name are used, the first 
use of the label or name is the accepted use. 


If the branch is to zero (~0) or any statement number not in the function, the 
function is exited when the branch statement is executed. If the value to the right 
of the > is a vector (for example, >L1,L2,L3), the branch is determined by the 
vector’s first element. If the vector is an empty vector (there are no elements), the 
branch is not executed, and the normal sequence of statement execution continues. 
For example, the conditional branch >(12N)/START is evaluated as follows: 


1. First, the condition (l2N) is evaluated; the result is 1 if the condition is 
true and 0 if the condition is false. 


2. The result of step 1 is then used as the left argument for the compress 
(A/B) function: 
a. If the result of step 1 was 1, START is selected from the right argument 
and a branch to the statement labeled START is taken. 
b. tf the result of step 1 was 0, nothing is selected from the right argument 
(an empty vector is the result) and the sequence of execution falls through 
to the next statement. 


Following are three examples of defining and using a function to determine the 
sum of the first N integers. Each function uses a different method of branching. 
Remember, the expression to the right of the > is evaluated and the result deter- 
mines to what statement the branch is taken: 


¥ S¢SUMI ON 
Cig Se Q) 


022 Ted 

C30 CHECK : +LABEL x I &N<-——Branch to LABEL if I<N; otherwise, 
CUT LABEL: $¢S4+I exit the function. 

CS. TelTad 


rél 8CHECKY 


SUMIL 3 


LS 


Vo S¢eSUM2 N 


4 : cai Se 0 
Ri) C27] led 
c a : C H ECK : 4070 >N) 7/0 +— Branch to 0 (terminate the function) 
I 4 4 Se S+ I] or fal! through. 
cs Tere 
t 


cl 
4 CHE CKY 


€ ) SUM2 5 
ee 15 


Vo S¢SUMS N 
| Pid Ge Q) 
ea tea 
ty CSI CHECK :- S¢S+T 
C CMe oI Teled 
= ae | 3 CT EN) /CHECKY «—— Branch to CHECK or fall through. 
GUMS 


Several forms of the branch instruction are shown in the following table: 


Saad Branch Instruction Result 
' ” 
() +LABEL Branches to a statement labeled LABEL a E 
+0) Exits function a= 
+LATEL x Xs ¥ Branches to LABEL or exit function 34 
' aC OXY), OXY). CXS YD ILI LL Branches to L1, L2, or L3 3S = 
sCLI L2.0Lexe¥ 7) Branches to L1 or L2 
aCKe¥) /0 Exits function or falls through to next statement 
9OX=7) /LABEL 
a B ABE 
2 (XY) pLABEL \ ranches to L L. or falls through 


Note: Branching will also work if a specific statement number is specified to the 
right of the >. For example, >3 means branch to statement 3; or >1<3xA means 
Bike | is assigned the value of 3 times the value of A, and the value of | is then used as 
C \ the branch to statement number. However, these forms of branching (using 
Be statement numbers instead of labels) can cause problems if the function is edited 
and the statements are renumbered. 


Local and Global Names 

C ‘i A local name is the name of a variable or user-defined function that is used only 
within a particular user-defined function. A global name is the name of a variable 

or user-defined function that can be used within a user-defined function and can 
also be used outside of it. An example of the use of a local variable name would 
= be the name of a counter used in a user-defined function (which is not required 
C y for any use outside the function). 

PA 
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To make a name local to a user-defined function, it must be contained in the 
function header. For example, the function header VZ-EXAMPLE X;:J;1 estab- 


lishes the result variable Z, the argument X, and variables J and | as local variables. 


Notice that the local names, other than the result variable and arguments, follow 
the right argument (if any) and are preceded by semicolons. 


A local name can be the same as a global name (variable or user-defined function) 
or a local name in another function. However, any reference to the name local 
to the function will not change the values of any other global or local objects 
(variables or user-defined functions) or cause them to be used. 


After a user-defined function has executed, the following rules apply to the local 
and global variables used by the function: 


@ Any value assigned to a local variable is lost. 


@ Ifa local variable had the same name as a global variable, the value of the glo- 
bal variable remains unchanged. 


@ If the value of a global variable was changed by the function, it retains the 
new value. 


For example: 


LOCe 100 
GLOKe 100 
VRESULTCEXAMPLE ; LOC; X 
C10 LOoCe sa 
Red Xe 
C3 GLORE LO 
Cu RESULTELOC+GLOB+XY 


EXAMPLE 
85 

X————— X has no value after the function 
VALUE ERROR has executed. 

x 

A 

Loc The global value associated with this 
100 name was unchanged by the function. 


GLO -———— The global value was changed by the 
1a function, since GLOB was not made 
local name to the function. 


tS SESE 
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Since the value of a local name disappears as soon as execution of the function 
finishes, the only time you can use or display the value of a local name is while 
the function to which it belongs is still executing, is suspended, or is pendent. 


Note: \f a name is local to a function that calls another function, the value of 
that local name can also be used by the called function. 


A name local to a function that has not completed execution or that is suspended 
(see Chapter 7) will be inaccessible if the name is also local to a more recently 
called function. Putting it another way, the value of a name that you can use or 
display is always the most recent local value of the name. Of course, as execu- 
tion of the more recently called functions is completed, the next earlier value of 
each local variable will again be accessible. A name can therefore be said to have 
one active referent or value, and possibly several /atent referents or values. For 
example: 


Vo TIAN; XX 
Cid XxXe 100 
em “THE FUNCTION DAN GIVES XX THE VALUE' 
ae XX , 
Cu cl “ANT CALLS THE FUNCTION DAVE ' 
CAVE 
‘WHEN DAVE TS THROUGH EXECUTING AND EXECUTION RETURNS’ 
Sore NAN, XX ONCE AGAIN HAS THE VALUE’ 
X¥ 


SA 
ais | 


E 
g2 DAVE ; XX 
ai KL XxXe#200 
83 C21 THE FUNCTION DAVE GIVES XX THE VALUE" 
t3] Xx 
cud TANT CALLS THE FUNCTION JERRY’ 


JERRY 

"WHEN JERRY IS THROUGH EXECUTING AND EXECUTION RETURNS ' 
‘TO WAVE, XX ONCE AGAIN HAS THE VALUE 

XX¥ 


mrmrs 
aI cA 
Ls tt fF be 


JERRY | XX 
i XX¢ 300 
Cel “THE FUNCTION JERRY GIVES XX THE VALUE" 
C3] XX 

Cu "ANT RETURNS TO DAVEY 
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TAN 
THE FUNCTION TIAN GIVES &X THE VALUE 


L606 
AND CALLS THE FUNCTION TAVE 
THE FUNCTION TAVE GIVES Xx THE VALUE 
200 
ANE CALLS THE FUNCTION JERRY 
THE FUNCTION JERRY GIVES XX THE VALUE 
400 
ANT RETURNS TO TAVE 
WHEN JERRY IS THROUGH EXECUTING ANX EXECUTION RETURNS 
TO TVE, XX ONCE AGAIN HAS THE VALUE 
200 
WHEN DAVE IS THROUGH EXECUTING AND EXECUTION RETURNS 
TO DAN. XX ONCE AGAIN HAS THE VALUE 
100 
XX 
VALUE ERROR 
xX 
“A 


The )SIV command causes the SIV list (state indicator with local variables and 


local user-defined functions listing) to be displayed. The SIV list contains a com- 


plete set of referents of a name. 


Note: See System Functions in Chapter 5 for an example of a local user-defined 
function using the LJFX system function. 


If the SIV list is scanned downward, the first occurrence of a variable name is its 
active referent. If the name appears again, it is a latent referent. Global names 
are not found in this list; they can be displayed with the )VARS command and 
)FNS command. 


In the following SIV display, variable P has referents as follows: 


STV 
GL?I «eZ xk T 
FM P J «———- Active referent of P is local to function F. 
OLS] «th xX 7 : 
REQ p~« First latent referent of P 
GU) yy T is local to function R. 


As the state indicator is cleared (see Chapter 7), latent referents become active. 


143 


ao 
c 
oO 
= 
1S} 
Qo 
—! 


Global Names 


o 
> 
.] 
(3) 
A) 
pa 
@ 
rw] 
Cc 


Functions 


144 


INTERACTIVE FUNCTIONS 


User-defined functions can display messages and/or request input from the key- 
board. The messages (character data) in the user-defined function are enclosed in 
quotes. The [] (quad) and ["] (quad quote) symbols are used to request input from 
the keyboard during function execution. The following function is an example of 
an interactive function that computes the amount of interest on a capital amount 
for a given number of years: 


Vo Cr 
Cid "ENTER THE CAPITAL AMOUNT IN DOLLARS’ 
C23 Aety 
So “ENTER THE INTEREST IN PERCENT’ 
Cu Tet 
CS "ENTER THE PERTOL IN YEARS' 
67 Yee 
C7 “THE RESULT IS‘ 
C83 AxC1l4+0, 01x eV 


ct 
ENTER THE CAPITAL AMOUNT IN DOLLARS 
UI: 
100 
ENTER THE INTEREST IN PERCENT 
tI: 
g 
ENTER THE PERIOD IN YEARS 
(1: 
2 
THE RESULT IS 
116.64 
et 
ENTER THE CAPITAL AMOUNT IN DOLLARS 
(I: 
1000 
ENTER THE INTEREST IN PERCENT 
i: 
8.388 
ENTER THE PERTON IN YEARS 
I: 
5 
THE RESULT IS 
1530.2 


Requesting Keyboard Input during Function Execution 


— The [] (quad) appearing anywhere other than immediately to the left of the assign- 

Reel ment arrow indicates that keyboard input is required. When the [] is encountered 
in the function, the two symbols []: (a quad symbo! followed by a colon) are dis- 
played, the display is moved up one line, and the cursor appears. The quad and 
colon symbols are displayed to alert the user that input is required. Any valid 
expression entered at this point is evaluated and the result is substituted for the 

C ‘ quad. You can escape from a quad input request by entering the right arrow >. 


An invalid entry in response to request for input results in an appropriate error 
message and the request for input is made again. Any system commands entered 
will be executed, after which the request for input will again be made. An empty 
input (no keying) is rejected and the 5100 again displays the symbols []: and 


( ‘ awaits input. 
) 


When the quad quote ["] {a quad overstruck with a quote) is used, input from the 
keyboard is treated as character data. The input begins at the left margin of the 
display; quotes do not need to be entered to define the data as character data. 
When [7] input is requested, the symbols []: do not appear as they did with a [] 
input request. The input is entered after the flashing cursor appears on the screen. 
For example: 


xel 
CAN'T 

X 
CAN'T 


q ‘ Xee 
/ CANT ST! 


x 
“CAN'T! 


Anything you enter in response to a quad quote request for input is considered 
character input. Therefore, if you enter a system command or a branch arrow 
(+) to terminate the function, the entry is treated as character data for the 
function and the system command or branch will not be executed. This can be 
a problem if you are trying to escape from a quad quote input request. There- 
fore, APL provides an escape for this situation. To escape from a quad quote 
input request, enter the @symbol by holding the CMD key and pressing the 

C \ key. The function is interrupted and the function name and the line num- 

, + 


ber being executed are displayed. You can then modify the function or termi- 
nate it by entering the right arrow >. 
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ARRANGING THE OUTPUT FROM A USER-DEFINED FUNCTION 


The output from user-defined functions can be arranged by using the format func- 


tion (see the # function in Chapter 4) or bare output. Bare output is discussed 
next. 


Bare Output 


After normal output, the cursor is moved to the next line so that the next entry 
(either input or output) will begin at a standard position. However, bare output, 
denoted by the form [}<-X (X can be any expression), does not move the cursor 
to the next line. Therefore, more than one variable or expression can be displayed 
on the same line. For example: 


VOX TINES Y¥ 


Ca Me X 
C2 Me’ TIMES ' 
ras Me ¥ 


Cue Mle’ TS ° 
roo XXY¥ 

2 TIMES 4 
2 TIMES W TS 8 


Since the cursor does not return to the next line after bare output, when quad 
quote ([]) input is entered following the bare output, the input starts after the 
last character of the bare output. Then when the input is processed, it is pre- 
fixed by any bare output on the input line. For example: 


c 
° 
‘B 
o 
c 
3 
ce 


Y OQUTPUTAINPUT 
mad Me ' THIS TS BARE GQUTPUTEDS' 
C27 aTHE NEXT STATEMENT REQUEST & INPUT 
Cad INe tl 
Ca aNOW DISPLAY THE TNPUTY 
QUT PUTATNPUT 
THIS IS BARE OUTPUT!!! The cursor appears here. Now 
enter THIS IS [7] INPUT. 


THIS IS BARE QUTPUTIEITHIS TS f ENPUT <5 


This is the final result. 
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Therefore, if quad quote input follows bare output (but only the input is to be 
processed), the bare output must be removed from the input line. Following is 
an example of a function that will remove the bare output: 


Y Re BAREAOQUTPUT MSG;0T0; J 
ide d. 
MNeMSG 
ACHECK THE BARE OUTPUT FOR EMBEDDED CURSOR RETURNS 


ADROP ANY BARE OUTPUT PREFIX FROM THE TNPUT 
Re CS lL 


This is how the function works: 


VOUTATIN The Bare Output 
Cid BAREAQUTPUT "THIS IS BARE OUTPUTETE' 
ane 
tad ¥ QUTAIN This function will remove the bare output. 


THIS IS BARE OUTPUT! ! !_4-—The cursor appears here. Now 
enter THIS IS [] INPUT. 

THIS TS BARE OUTPUTIELITHIS IS @ INPUT 

THIS IS © INPUT 


This is the final result. 


LOCKED FUNCTIONS 


A locked function can only be executed, copied or erased; it cannot be revised or 
displayed in any way, nor can trace control and stop control (see Trace Control 
and Stop Control later in this chapter) be changed. A function can be locked, or 
protected, by opening or closing the function definition with a V (Voverstruck 
with ~), instead of a V. 


When an error is encountered in a locked function, execution of that function is 
abandoned (not suspended). If this function was invoked by another locked 
function, execution of the second function is abandoned also, and so on, until 
either (1) a statement in an unlocked function or (2) an input statement is 
reached. Then DOMAIN ERROR is displayed. In the first case, the execution of 
the unlocked function is suspended at the statement; in the second case, the 5100 
waits for input. 


Note: A locked function cannot be unlocked; therefore, if the function contains 
an error, the function cannot be edited and the error corrected. 
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FUNCTION EDITING 


Several methods are used when in function definition mode to display and revise 
a user-defined function. Also, after a function definition has been closed, the 
definition can be reopened and the same methods used for further revisions or 
displays. (See Reopening Function Definition in this chapter.) 


Displaying a User-Defined Function 


Once in function definition mode, part or all of a user-defined function can be 
displayed as follows: 


@ To display the entire function, including the function header and the opening 
and closing VY , enter [[J]. APL responds by displaying the function, then wait- 
ing for the entry of additional statements. 


@ To display from a specified statement to the end of the function, enter [Ln], 
where n is the specified statement number. APL responds by displaying the 
function from statement n to the end of the function, then waiting for the 
last statement displayed to be edited (see Editing Statements in this chapter). 


@ To display only one statement of the function, enter [n{]], where n is the 
statement number to be displayed. APL responds by displaying statement n 
and waiting for the statement to be edited (see Editing Statements in this 
chapter). 


The following table summarizes function display when in function definition mode: 


Entry Result 

[nO] Displays statement n 

(Qn] Displays all statements from n onward 
(0) Displays all statements 


Revising a User-Defined Function 


Statements in a user-defined function can be replaced, added, inserted, deleted, or 
edited as follows: 


@ To replace statement number n, enter [n] and the replacement statement. If 
just [n] is entered, APL responds with [n], then waits for the replacement 
statement to be entered. If the function header is to be replaced, enter [0] 
and the new function header. 


@ To add a statement, enter [n] (n can be any statement number beyond the 
last existing statement number) and the new statement. APL will respond 
with the next statement number, and additional statements can be entered if 
required. 


® To insert a statement between existing statements, enter [n] and the new state- 
ment. n can be any decimal number with up to 4 decimal digits. For example, 
to insert a statement between statements 8 and 9, any. decimal number be- 
tween 8.0000 and 9.0000 can be used. APL. will respond with another deci- 
mal statement number and additional statements can be inserted between 
statements 8 and 9 if required. (These and. the following statements are. auto- 
matically renumbered when the function definition is closed.) 


Note: The statement number 9999.9999 is the last valid statement number. 

©@ To delete statement n, enter { An]. 
Note: The [An] and closing V cannot be entered on the same line. If the func- 
tion definition is to be closed immediately after a statement has been deleted, 


the closing V must be entered on the next line. 


®@ To edit specific statement, use the following procedure: 


1. Enter [n[]] (where n is a statement number). Statement n is displayed. 


2. Choose one of the following options: 
a. To change a character, position the cursor (flashing character) at the 
character to be changed. Enter the correct character. 
b. To delete a character, position the cursor at the character to be 
deleted. Then press the backspace ( | | key while holding the 


command (CMD) key. ._ The character at the cursor is deleted from 
the line and the characters that were to the right of the deleted char- 
acter are moved one position to the left. 

c. To insert a character, position the cursor to the position where the 
character is to be inserted. Then press the forward space ( ) 


ee 
2 
.3) 
c 
3 
LL 


key while holding the command (CMD) key. The characters from the 
cursor position to the end of the line are moved one position to the 
right. For example: [1] A¢-1245 should be [1] A<12345. Position 
the cursor at the 4 and press the forward space and command (CMD) 
keys simultaneously. The display will look tike this: [1] A<12_45. 
Now enter the 3. 

d. To delete all or part of a line, press ATTN to delete everything from 
the cursor position to the end of the line. 


3. Press EXECUTE. The next statement number is displayed. 


Note: \f more than one statement number is entered on the same line, only the 
last statement number is used. For example, if a tine contained 
{3] [8] [4] ‘NEW LINE’, only statement 4 is replaced when EXECUTE is pressed. 
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Reopening Function Definition 


If you want to edit a function that has previously been closed, the function defini- / -) 
tion must be reopened. For example, if function R is already defined, the function . 
definition for function R is reopened by entering VR. The rest of the function 

header must not be entered or the error message DEFN ERROR is displayed 

and the function definition is not reopened. The 5100 responds by displaying 

[n+1], where n is the number of statements in R. Function editing then pro- 

ceeds in the normal manner. / -) 


Function definition can also be reopened and the editing or display requested on 
the same line. For example, VR[3]S<S+1 edits the function by entering the new 
line 3 (SqS+1) immediately. Then the 5100 responds by displaying [4] and 
awaiting continuation. The entire process can be accomplished on a single line: 
VR[3]S<-S+1 7 opens the definition of function R, enters a new line 3, and termin- 
ates function definition. VR[[J]V causes the entire definition of R to be dispiayed, 
after which the 5100 returns to execution mode. 


O 


Note: You cannot reopen the definition of a function, delete a statement, and 
close the function (for example, VR[A4]V) on the same line, since the closing V 
cannot be on the same line as the [An]. 


(ea enter a eo EC 


An Example of Function Editing 


| “ \ In this example, the user-defined function AVERAGE is used to show how the 
@ methods used to revise and display functions work: 


VAVERAGE xX << —@_@————_______——_____—__——-Define the function. 

Cid ‘THIS FUNCTION CALCULATES AVERAGES ' 

Ded +/KXe C+ /Xe XV 
C \ AVERAGE 24 6 §8<———_—_——_______- Execute and test the function. 

— THIS FUNCTION CALCULATES AVERAGES 

VAVERAGECL. 79 ‘THE AVERAGE IS '-———_——_———_—————- Insert a statement. 
1.80 Cag 
17 "THIS FUNCTION CALCULATES AVERAGES ' 
Lit “THIS FUNCTION CALCULATES AVERAGES ANT SUMS ' Statement 1 was edited 
2 : hae ; "THE SUM IS' to look like this. 
4d +7 XV nen a es i Sie Pu statements 3 and 4. 

VAVERAGERNIV~_ 
VY AVERAGE X Display the function. 


Display statement 1. 


i 
C 
t 
° 
t 


tcl ‘THIS FUNCTION CALCULATES AVERAGES AND SUMS" 
C2 ‘THE AVERAGE TS' 

Cac t/ Xt Ce / XX ) 

4 "THE SUM IS° 

Cl 4 7X 


AVERAGE 204 6 8 ——————————_____________——__Exxecute average. 
. THIS FUNCTION CALCULATES AVERAGES AND SUMS 
(_) THE AVERAGE IS 
THE SUM IS 
20 


VAVERAGE 3) +/X+eX—_——__________________— —-Replace statement 3. 
4 CALI «— —§ —— plete statement 1. 
C21 COIAVERAGEASUM X¥—————_________—_—_—___——____—Replace the function header. 
VAVERAGEASUMC IY ————____—_______——_—___—pisplay the function. 
V AVERAGEASUM X 
a “THE AVERAGE Is' 
C20 + /X+ Ox 
Ca “THE SUM IS‘ 
Ty) +/X 
Caan Vv 
e AVERAGEASUM 2 & 6 8 
“ THE AVERAGE IS 
a 
THE SUM TS 
20 
ae VAVERAGEASUM ((]31V<—_——___________________ nj splay the function from 
S c37 “THE SUM IS' 


statement 3 to the end. 
a +/X 
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TRACE AND STOP CONTROLS 


APL provides the ability. to trace or stop execution of user-defined functions, pro- e 
viding the functions are not locked (see Locked Functions in this chapter). | -) 


Trace Control 
Trace control is used to display the results of selected statements as a function ; +) 


executes. The display consists of the function name followed by the number and 
results of the selected statement. For example: 


STEVE[1 -=———— 
a [ = Result 


Function Statement S| 
Name Name \ 


Statements to be traced are specified by a trace vector. The format of the trace | 
control function is TA STEVE<I, where STEVE is the name of the function and { 
| is the vector specifying the statement numbers to be traced. For example, if | 
TA STEVE<2 3 5 is entered, the statements 2, 3, and 5 are traced each time 
function STEVE is executed. TA STEVE<10 must be entered to discontinue i 
the tracing of function STEVE. To trace each statement of the function, enter 
TA STEVE<1N, where N is the number of statements in the function: 


VOTE VEL ELV 


V STEVE 1 - 
Ad Aedxe i) 
E2]  Be2xy 


Sn (He 3x Tt 
Me Tey x 7 
Coo Ath Cee 


: STEVE 2 
20 

TASTEVE Ge il 
STEVE 2 
STEVECII 2 FSS Trace the first four statements 
STEVEL2 7 &. in function STEVE. 
STEVES 6 | 


STEVECUI 8 ) 
20 Sk 


TASTEVE¢ 2 «——Trace statement 2 in function STEVE. 
STEVE 2 : 
STEVEC2T & 


20 


TASTEVE © 1 0 +——— Discontinue tracing in function STEVE. ie 
STEVE 2 al 
20 
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Trace control can also be set by statements within a function. These statements 
initiate tracing when a variable contains a certain value. For example: 


= ISTEVELOIY 
¥ STEVE I 
ric A&_ey 
R27 TASTEVE ¢ 3% A= 2<—— Trace statement 3 in function STEVE 
C33 Ce 3x] when A equals 2. 
ee Cul Tie x T 
C ) Ce Atel 
a ¥ 


STEVE 2 
STEVEL3] 6 
16 


C ) oy. 


Note: The following instruction will establish trace control for the first statement 
of each user-defined function in the active workspace: 


STEVE 3 


A°LE, O's a's TT ATL CCCAINL Se eo. LS! 


This instruction can be used to find out what functions are called by another 
function. 


¢€ The following user-defined function named TRACE will establish a trace vector 
for each statement in a specified user-defined function: 


VTRACECHIV 
¥ TRACE NANE 
a ee a'°TA' NAME. ©. if eCR' °° NAME, OC! 
Vv 
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When executing the function TRACE, the argument must be entered in single 
quotes. For example: 


VSTEVELQIAY 
STEVE I 
AGL XT 

Be ext 

Ce Sx I 

Leu xT 
AtR+C +1 


TRACE STEVE ‘«——— Establish a trace vector for each 
STEVE 2 statement in function STEVE. 


STEVELII 2 


STEVEE2ZI  ~«———_______——- Each statement of function 


VECSI 6 STEVE has been traced. 


STEVERSI 20 


20 


Stop Control 


TASTEVE 10 
STEVE 2 


Stop control is used to stop the execution of a function just before specified 
statements. At each stop, the function name and statement number of the state- 
ment to be executed next is displayed. The statements are specified by a stop 
vector. The format of the stop control function is SA STEVE<I, where STEVE 
is the name of the function and | is the vector specifying the statements. After 
the stop, the system is in the suspended state (see Chapter 7); execution is 
resumed by entering >[]LC (see Chapter 5). SASTEVE<10 (STEVE is the 
function name) must be entered to discontinue the stop control function. 


Stop control can be set by statements within a function. These statements 
initiate halts when a variable contains a certain value. For example, 

SA STEVE<4xN>8 means stop before statement 4 in function STEVE when 
N is greater than 8. 


Trace control and stop control can both be used in the same user-defined 


function. 


& 


Chapter 7. Suspended Function Execution 


SUSPENSION 
os The execution of a user-defined function can be interrupted (suspended) in a var- 
. iety of ways: by an error message (see Chapter 11), by pressing ATTN (see 


Chapter 1), or by using the stop control vector (see Chapter 6). In any case, the 
suspended function is still considered active, since its execution can be resumed. 
Whatever the reason for the suspension, when it occurs, the statement number of 
the next statement to be executed is displayed. A branch to the statement num- 
| ee ber that was displayed or a branch to [JLC (~[JLC, see Chapter 5) causes normal 
| @ ) continuation of the function, and a branch out (~0) exits the function. 


When a function is suspended, the 5100 will: 

@ Continue to execute system commands except )SAVE, )COPY, and )PCOPY. 

@ Resume execution of the function at statement n when ~n is entered. 

@ Reopen the definition of any function that is not pendent. A pendent func- 
tion is a function that called the suspended function. [ff a function called a 
function that called a suspended function (and so on), it is also pendent 
(see State Indicator in this chapter). 

C } @ Execute other functions or expressions. 

Note: The display of output generated by previous statements might have been 
interrupted when the suspension occurred. This would be caused by the delay 
between execution of the statement and the display of the output. 

STATE INDICATOR 

The state indicator identifies which functions are suspended (*) and at what point 


normal execution can be resumed. Entering )SI causes a display of the state indi- 
cator. Such a display might have the following form: 


- 
\ ips 
é ) 3 I 


HZ] 
G2] 
FOS A 
C ) This display indicates that execution was halted just before statement 7 of func- 


tion H, that the current use of function H was invoked in statement 2 of function 
G, and that the use of function G was invoked in statement 3 of F. The * 
appearing to the right of H{7] indicates that function H is suspended; the func- 
tions G and F are said to be pendent. 
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During the suspension of one function, another function can be executed. Thus, 
if a further suspension occurred in statement 5 of function Q, which was invoked 
in statement 8 of G, a display of the state indicator would be as follows: 


St 
QCS]  # 
GS 
HOV]  % 
GOI 
FES] 


An SI DAMAGE error (see Chapter 11} indicates that a suspended function or 
pendent function has been edited and the normal execution of the suspended 
function can no longer be resumed. Therefore, when an S| DAMAGE error 
occurs, the state indicator display will not include the suspended function name 
(however, the asterisk is still displayed). For example, if function Q is edited 
and the modification causes an S| DAMAGE error, the display of the state 
indicator would be as follows: 


STI 
% 
GLB no suspended function name is displayed. 
H?] % 
Gl27 
FE3I 


A suspension can be cleared by entering a branch with no argument (that is, >). 
One suspended function is cleared at a time, along with any pendent functions 

6 \ for that suspended function. The first branch clears the most recently suspended 
function, as the following example shows: 


HE? 


C ) GL2I 
- FOS 


It is a good practice to clear suspended functions, because suspended functions 

: use available storage in the active workspace. Repeated use of > clears all the 
q ) suspended functions; as the functions are cleared, they are removed (cleared) from 
<a the state indicator. When the state indicator is completely cleared, the state indi- 


cator display is a blank line. 


Note: To display the state indicator with local names, enter the )SIV command 
(see Local and Global Names in Chapter 6 for more information on the SIV list). 
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Chapter 8. Tape and Printer Input and Output 


Input and output involving the tape or printer can be done with an APL shared 
variable, which is a specific variable shared between the active workspace and the 
tape or printer. During output operations, the data assigned to the shared variable 
is printed, or is written on tape. During input operations, data is read from tape 
and assigned to the shared variable; the shared variable can then be used in an ex- 
pression in the active workspace. To do tape or printer input or output, the 
following steps must be performed: 

1. Establish a variable to be shared. 

2. Open a data file on tape or specify printer output. 

3. Transfer the data. 


4. Close the data file or terminate the printer output. 


5. Retract the variable being shared. 


ESTABLISHING A VARIABLE TO BE SHARED 


The [JSVO function is used to establish the variable name(s) to be shared. The 
[ISVO function is dyadic (requires two arguments) and is entered as follows: 


TISVO NAME CS) ' 


The left argument must be a 1. 


The right argument NAME(S) can be up to eight variables to be shared. If more 
than one name is required, the names must be entered as a character matrix with 
each row representing a name. For example: 


SHAREeS Se ' QNETWOTHR’ 


SHARE 
ONE 
TWO ?+———Each row represents a separate variable name. 
THR 


158 


Following are three examples of how the [JSVO function can be entered: 


( : \ e 1 CSV0 ‘ATA’ 
~ © Ae'DATA’ 
1 Qsva 4 
e SHAREGS Le ARC’ Establishes three names (A, B, 
C) 1 SV0 SHARE and C) to be shared. 


The 5100 will respond with a 2 for each shared variable that is successfully estab- 
lished and a O or 1 for each variable that is not. If a 1 is displayed, a value other 
than 1 was specified as the left argument for the [JSVO function. In this case, the 
ses variable name must be retracted (see Retracting the Variable Name being Shared 
C } later in this chapter) and reestablished as a shared variable before it can be used 
_ for input/output. If a 0 is displayed, an error message (see Chapter 11) will also 
be displayed. 


Note: The instruction +/02([JSVO [INL 2 will display the existing number of 
shared variables in the system, and the instruction (0z(JSVO [JNL 2)/[1] (INL 2 
will display the existing shared variable names. 


OPENING A DATA FILE OR SPECIFYING PRINTER OUTPUT 


The first value assigned to the shared variable must be information required to 
open a data file on tape or to specify printer output. When opening a data file, 


Yoo 
( ; this information specifies the following: 
®@ Data to be transferred to tape or from tape 
® Device/file number 
@ File ID 
@ Data format to be used 
Note: If this information has already been assigned to a variable name that is 
being used as the right argument for the (JSVO function, the 5100 will establish 
the variable name to be shared, then open the data file or specify printer output. 
< “ In this case, there is no return code assigned to the shared variable to indicate if the 
( y operation was successful or not. The return codes are described later in this chapter. 
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This information must be character data (enclosed in single quotes) and must be 
entered with a blank between each parameter, as follows: 


IN A 

or or 

OUT I 
name< ' or device/file number [1D=(file 1D)] [MSG=OFF] | TYPE=or : 

ADD ; 11 

or or 

PRT 12 


where: 
name is the name of the variable being shared. 


IN specifies that the data is to be transferred from tape into the active 
workspace. 


OUT specifies that the data is to be transferred to a tape file. 


ADD specifies that the data is to be transferred to an existing tape file, 
following the last record in that data file. 


PRT specifies that the data is to be printed. 


Note: When PRT is specified, the only other information that can be speci- 
fied is MSG=OFF (which is defined later). 


device/file number specifies the tape unit and file number. For example: 


1003 


—_~ 


ar File Number 3 


Tape Unit 1 


Note: \f fewer than four digits are used, tape unit 1 is assumed, and the 
value entered represents only the file number. 


ID=(file 1D) (optional) specifies from 1 to 17 characters enclosed in 
parentheses: 


@ For an IN or ADD operation, the entry (file 1D) is compared to the file ID in 
the file header; the open fails if they do not match. 


@ For an OUT file, the entry (file ID) is put in the file ID field of the file header 
(see the )LIB command in Chapter 2). If the |D=(file 1D) parameter is not 
specified, the characters DATA are put in the file 1D field. 


It is a good practice to give the data files meaningful names; for example, a 
file that contains sales data could be named SALES. Also, any blanks within 
the 17 characters become part of the file ID. 


Note: To do an OUT operation to an existing data file (write new data 


over the existing data), the file ID specified must match the existing file 
ID for the data file. 


& 


MSG=OFF (optional) specifies that no error message is to be displayed for 
nonzero return codes (see Return Codes in this chapter). 


(> A 


or 
I 
TYPE=or (optional) can only be specified for OUT operations. It specifies the 
1 
= or | 
( \ 12 


data format to be used when writing data to tape: 


@ When TYPE=A is specified, the APL internal data format is used; that is, 
the data is written on tape in the same format that it is stored in, in the 


\ active workspace. 
\ 
a 


@ When TYPE=1! or TYPE=11 is specified, the interchange data format is used. 
When the interchange data format is used, only character scalars or vectors 
can be assigned to the variable being shared. Therefore, when storing nu- 
meric data or arrays on tape using the interchange data format, the data i 
must first be changed to a character scalar or vector (see the F function 
in Chapter 4). 


The following items apply to an interchange data file that is used by both 
the 5100 APL and BASIC languages: 


1. All data items must be separated by commas. For example, the numeric 
ves vector 1 3 5 6 must be changed to character data, then commas placed in 
or a the blank positions. 


2. Negative signs must be replaced by minus signs. 


3. Enclosing single quotes must be part of any data that represents character 
constants. Also, any embedded quotes in the character constant must be 
represented by double quotes. 


Note: The 5100 BASIC language accepts only the first 18 characters in 
each character constant. 


4. The 5100 BASIC language creates a logical record for each PUT statement 
or each row of an array with a MAT PUT statement. 


& @ When TYPE=I2 is specified, the general interchange data format is used; it 
is the same as TYPE=! (and TYPE 11) except that the data file can also be 
used as a BASIC language source file. 


Note: The data format can be specified only for an OUT operation. For IN 

ae or ADD operations, the data format is specified by the data file type (see 
C } }LIB command in Chapter 2). If the data format is not specified for an OUT 
ai operation, the APL internal data format (TYPE=A) is used. 


CAUTION 
tf the tape cartridge is removed from the 5100 when an OUT or ADD file is 
fon open, the file will be unusable. See Closing a Data File or Terminating the 
C y Printer Output in this chapter for information on how to close a data file. : i 
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The following four examples, using an APL shared variable named EXAMPLE, 
show how the information required to open a data file or specify printer output 
can be entered: 


1. EXAMPLE¢ IN 1001 Tt=(TEST)’ 


The value TEST will be compared 
to the file header field. 


File 1 on tape unit 1 is to be opened. 


Data is to be transferred from tape 
into the active workspace. 


2. EXAMPLE® OUT 003 IMeCTEST2) TYPE=1' 
Interchange data format 
is to be used. 


The value TEST2 will be placed 
in the device header field. 


File 3 on tape unit 1 (assumed) is to be opened. 


Data is to be transferred to tape 
from the active workspace. 


3. EXAMPLE¢ ‘ADD 3° 


File 3 on tape unit 1 (assumed) is to be opened. 


Data is to be transferred into an existing file on tape. 


Note: Since the file ID was not specified, no value is compared to the file 
header field. 


4. EXAMPLE¢ “PRT MSG=OFF' 


No error messages will be displayed 
for nonzero return codes. 


Data is to be printed. 


After the information has been entered, a code (2-element vector) that indicates 
whether the operation was successful or not is assigned to the shared variable. A 
return code of 0 0 indicates the operation was successful, and a nonzero return 
code indicates that the operation failed. See Return Codes in this chapter for a 
description of each return code. 


TRANSFERRING DATA 


After the data file has been opened or printer output specified, data can be trans- 
( ferred using the shared variable. (An example using tape and printer input/output 
is shown later in this chapter.) 


Transferring Data to Tape (OUT or ADD Operation) 


C ) When data is assigned to the shared variable, the data is written on tape and a 

= return code is assigned to the shared variable. A O O return code means the data 
was transferred successfully and a nonzero return code means the transfer of 
data failed. See Return Codes in this chapter for a description of each return code. 


( ‘ Transferring Data from Tape (IN Operation) 


When data is transferred from tape, the data is read from tape and is assigned to 
the shared variable in the same sequence as it was written to tape. New data is 
read from the tape file and assigned to the shared variable each time the shared 
variable is used. (There is no return code assigned to the shared variable after an 
IN operation.) : 


When doing an IN operation with an interchange data file, the following condi- 
tions occur if a cursor return character (X‘9C’) or end-of-block character (X‘FF‘) 
was embedded in a character vector that was written to tape: 


. @ If a cursor return character was embedded in the character vector, the data 
( \ will be read from tape in a different sequence than it was written to tape. 

aed This condition occurs because as the interchange data is written to tape, the 
system writes an end-of-record character (X’9C’) after each character vector 
(record) that was written to tape. The end-of-record character and the cursor 
return character are the same. When used on tape, this character separates the 
data (records) so that it can be read from tape in the same sequence as it was 
written to tape. However, if a cursor return character is embedded in the data 
that was written to tape, the system will recognize it as an end-of-record char- 
acter when the data is read from tape. 


@ If an end-of-block character was embedded in the character vector, any data 
from the embedded end-of-block character to the next physical record is not 
read from tape. This condition occurs because the system looks at the tape in 

aan 512-byte segments (one physical record). A physical record can be terminated 
C i by an end-of-block character (X‘FF‘’). When the system is reading data from 
7 the tape and an end-of-block character is encountered, the system skips to the 
next physical record and continues reading data. Therefore, if an X‘FF‘ char- 
acter is embedded in the data that was written to tape, the system recognizes 
it as an end-of-block character when the data is read from tape and skips 
ahead to the next physical record. 
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Transferring Data to the Printer (PRT Operation) 


When data (character data only) is assigned to the shared variable, it is printed 

and a return code is assigned to the shared variable. A O 0 return code indicates 
the data was printed successfully and a nonzero return code indicates the opera- 
tion failed. See Return Codes in this chapter for a description of each return code. 


Note: The )OUTSEL OFF command is automatically issued by the system when 
doing PRT operations. The )OUTSEL option will return to its previous setting 
after the PRT operation has been terminated (PRT termination is discussed next). 


CLOSING A DATA FILE OR TERMINATING THE PRINTER OUTPUT 


Transferring an empty vector will close the data files or terminate the printer out- 
put and a final return code will be issued. A O 0 return code indicates the file 
was closed or printer output was terminated successfully. See Return Codes in 
this chapter for a description of each return code. Also, for an IN operation, the 
file is closed and a return code is issued if an error occurs due to the device or if 
an end-of-file empty vector is returned. 


CAUTION 
For OUT and ADD operations, if the tape cartridge is removed from the 5100 
before a data file is closed, the data in the file will be unusable. 


After a data file has been closed, another data file can be opened by assigning 

the information required to open a file to the shared variable. Once the tape and 
printer input and output operations are done and the data files are closed or print- 
ing is terminated, the variable name being shared should be retracted. How to re- 
tract the variable name is discussed next. 


RETRACTING THE VARIABLE NAME BEING SHARED 


The LJSVR function is used to retract a variable name being shared. That is, once 
the [JSVR function has been used successfully, the variable name still exists as 

an APL variable, but it cannot be used to transfer data to tape or printer, unless 
it is reestablished as a shared variable. The (JSVR function is monadic (takes one 
argument) and is entered as follows: 


SVR 'NAMECS)° 


where NAME(S) can be the names of up to eight variables. If more than one name 
is required, the names must be in a character matrix with each row representing a 
name (see Establishing a Shared Variable earlier in this chapter). 


The 5100 will respond with a 2 (or a 1 if the left argument for the SVO func- 
tion was not a 1—see Establishing a Variable to be Shared in this chapter) for each 
variable name that is successfully retracted and a O for each variable name that is 
not successfully retracted. Normally, if a variable name cannot be successfully 
retracted, it was never properly established as a shared variable. 


Note: \f the [ISVR function is used before a file is closed, the system will auto- 
matically close the file. 


RETURN CODES 


Return codes assigned to the shared variable when doing input/output operations 
indicate whether or not the operation was successful. If the return code is non- 
zero and MSG=OFF was not specified, an error message is also displayed. 


Operation of the system does not stop when a nonzero return code is assigned. 
Therefore, if you have a user-defined function that is doing input/output opera- 
tions, the user-defined function should check the return code that was assigned 
to the shared variable to make sure each operation is successful. 


Following is a description and/or user‘s response for each return code and error 
message: 


Code Error Message Description and/or User’s Response 
00 Operation successful. 
10 Device error; the second element 
is the error code (see 


ERROR eee ddd in Chapter 11). 


20 INVALID FILE The specified file cannot be used 
for input/output operations. 


30 INVALID DEVICE Enter the information required to 
or open the file again, using device 
INVALID DEVICE NUMBER number 1 or 2. 


40 INVALID FILE NUMBER Enter the information required to 
open the file again, using a valid 
file number. 


50 NOT WITH OPEN DEVICE The specified device is already being 
used for input/output operations; 
the existing open file must be closed 
before another file can be opened. 


60 INVALID PARAMETER The information required to open 
the file was entered incorrectly; 
enter it again, correcting any key- 
ing errors, 


70 WS FULL Use the )ERASE command to erase 
any unwanted objects; then enter 
the information required to open 
the file again. 


80 DEVICE NOT OPEN Open the file. 
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Code Error Message Description and/or User’s Response 


90 This return code is only a warning; 
an empty vector was read from tape, 
but the empty vector is not the 
end-of-file empty vector. 


100 EXCEEDED MAXIMUM This error was probably caused by 
RECORD LENGTH the tape being removed before the 
file was closed. The remaining data 
in the file cannot be read. 


110 INVALID DATA TYPE The wrong type of data was used; 
for example, noncharacter data was 
sent to an interchange file, non- 
character data was used as the in- 
formation required to open a file, 
or noncharacter data was sent to 
the printer. 


AN EXAMPLE USING TAPE AND PRINTER INPUT/OUTPUT 


in this example, file number 11 on tape unit 1 will be used as a data file. First, 
a variable name must be established to be shared and the data file opened so that 
data can be written to the file (OUT operation): 


: Fite 11 is an unused file. 
LTR 14 


O11 00 0146 


os Establish a variable name 
1 {ISVO ‘SHARE '~——— 


to be shared. 


"y 
au 


Open the data file. 
SHARE ‘OUT LO. Te CINVENTORY)° 
SHARE —————_ Check the return code 


Otis file was opened that was assigned to 
the shared variable. 


0 


successfully. 


Now, as data is assigned to the shared variable, it is transferred (written) to the 


os data file: 
/ 
a 
SHARES "2454300 SCREW S000' 
SHARE 
0 0 
SHARE® “2456400 NUT 700° 
a SHARE 
C ) 0 ¢ 
: SHAREe 2486550 WASHER Sa" 
SHARE 
0 0 
SHARE®  SSS57800 CIRO Bn 10° 
SHARE 
C 00 
< SHARE & 1 0 «—__——_———-Aftter all the data has been transferred, 
SHARE the file must be closed. 
0 0 


{f more data is to be added to an existing data file but the file is closed, a vari- 
able name must be established to be shared and the data file opened again: 


Note: \n this example, the variable name SHARE has not been retracted and can 
still be shared. 


ee ; ——_—— oo Open the data file again. 
C SHARE® ALK LOLA Ite CINVENTORY) ' 
SHARE 
0 0 
GHAREe S35 7950 BOART chy; 
0 0 SHARE ‘Yes records are added 
SHARES 'S357951 A/U ancora ete 
SHARE , 
0 0 
SHARE 1G ———— The file is closed. 
SHARE 
6 0 


Since no more data is to be written on tape, the shared variable should now be 
retracted: 


C ) SVR ‘SHARE’ 
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Now, assume that at a later time you want to read the data from file 11 and 
print it on the printer, using the following user-defined function: 


VPRINTCOIV 
V PRINT; WORK 


AREAL DATA FROM THE TATA FILE AND ASSIGN IT TO WORK 


LOOP :WORK¢ DATA 


ACHECK FOR AN EMPTY VECTOR--AN EMPTY VECTOR HAS A 


ASHAPE OF @ (NO ELEMENTS) 

C0 eWORK) /DONE 
ALISPLAY AND PRINT THE VALUE ASSIGNER TO WORK 
PRNT¢ Le WORK 
ACHECK THE RETURN CODE FOR THE PRINT OPERATION 
(0 6 #PRNT)ZERROR 

+LOOP 


ERROR: 'PRINT ERROR--CHECK RETURN CODE FOR CAUSE ' 


+0 
Aa TERMINATE THE PRINTER OUTPUT 
DONE : PRNT¢ WORK 

‘THE RETURN CODES ARE’ 

ATA 

PRNT 


The variable names to be shared must be established again and the data file 
opened. Also, printer output must be specified: 


NAMES¢2 Ho DATAPRNT' 
NAMES 


DATA Establish the variable names 
PRNT to bee shared. 
1 NSVO NAMES 


yo 
a yo en the data file for input. 
NATAG' IN LOLL Te CINVENTORY)' 
HATA 
0 0 
PRNTe¢' PRT’ <———————Specify printer output. 
PRNT 
0 0 


Now, when the function PRINT is executed, the data file is read, displayed, and 


_ printed: 
PRINT 
2456300 SCREW S000 
ae 24546400 NUT 7000 
( ) 2486550 WASHER 30 
“ S35 7800 CIRC BL 10 
S35 7950 BOARD i 
S3S7951 a/w 1 
THE RETURN CORES ARE 
0 0 


C \ 0 0 
A 


After the operation is complete, the shared variable names should be retracted: 


SVR NAMES 
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Chapter 9. More Things to Know About the 5100 


DATA SECURITY 


You are primarily responsible for the security of any sensitive data. After you 
are through using the 5100, the data in the active workspace can be removed by 
one of the following: 


@ Using the )CLEAR command to clear the active workspace 
@ Pressing the RESTART switch 
@ Turning the POWER ON/OFF switch to off 


There are several methods available for protecting or removing sensitive data on a 
tape. These methods are: 


@ Assigning a password to the workspace when writing the active workspace on 
tape. 


@ Rewriting a tape file, which makes the old data inaccessible. 


@ Filling a data file with meaningless data. For example, the following user- 
defined function fills file 4, a data file named DATA on tape 1, with zeros: 


VSECURITYCOAV 

¥V SECURITY 
Cid Lt f1SvV0O ‘A’ 
C2] Ae OUT & The (ATA) ' 
C3. ke 10 1000 pd 
CuI WR: ACE 
Col 4 CALL I=0)/WR 

V 


Note: ERROR 010 ddd will be displayed after the data file has been filled with 
zeros. 


Data 
Security 
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5100 STORAGE CAPACITY 


The base 5100 (Model A1) has a storage capacity of 16K (K = 1024 bytes). 
Figure 4 shows how this storage is allocated for various requirements. Notice 
that the workspace available to the user (active workspace) is 10,600 bytes, 
while the remaining bytes are used for internal purposes. The storage capacity 
is increased in the following models of the 5100: 


Model A2 is 32K 
Model A3 is 48K 
Model A4 is 64K 


In these models, all additional storage is allocated to the active workspace. 
For example, on the Model A4, the active workspace is approximately 60,000 
bytes. 


Active Workspace 


10,600 
Bytes 


Symbol Table (see note) 


5784 5100 Internal Storage Requirements for Pointers, 
Bytes Counters, etc 


Note: The symbol table requires eight bytes of storage for 
each symbol allowed in the active workspace (see SYMBOLS 
in Chapter 2). 


Figure 4. Storage Allocation for a Model A1 5100 
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Storage Considerations 


The following list shows how many bytes of storage are required for each data 
type that can be in the active workspace: 


Data Type Number of Bytes Required 
Character constant or variable name 1 byte per character 
Whole numbers that are equal to or 4 bytes 


less than 231-1 


Whole numbers that are greater than 8 bytes 

23) ~4 

Decimal numbers 8 bytes 

Logical data 1/8 byte (1 byte can contain 8 


ones or zeros) 


Because the 5100 active workspace contains a fixed amount of storage, it is good 
practice to conserve as much storage as possible. Following are some considera- 
tions that can be used to conserve storage: 
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Make all objects (variables and user-defined functions) not required for use out- 
side of a user-defined function local to the function. 


Store data in data files on the tape, and use an APL shared variable (see 
Chapter 8) to transfer the data into the active workspace when required. 


Clear suspended functions (see Chapter 7) from the active workspace. 


Group user-defined functions by related operations and store each group into 

a workspace file on tape. Then when a certain group of related functions is 
required to process data in the active workspace, the stored workspace contain- 
ing these functions can be copied into the active workspace. When the pro- 
cessing is done, the functions can be expunged (see Chapter 5) and another 
group of functions (one workspace) can be copied into the active workspace. 


lf a value consists of all ones and zeros, store the value as logical data. For 
example, you have the following vector: 


VECTORGé 10 e¢2-1) 
VECTOR 
tPagdtaaaaaiil 


The result is a vector of 10 ones, and each 1 requires four bytes of storage. 
However, the vector can be changed to a logical vector as follows: 


VECTORE LAVECTOR 
VECTOR 
Pbdabadaiaid iad 


The result looks just like the previous result; however, only 2 bytes of storage 
was required. 
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@ Names of 3 characters or less require 8 bytes of storage in the symbol table 
; (the symbol table is part of the active workspace where the names of all the 
{ 4 symbols, including variables, user-defined functions, and labels, are stored). 
Ne Names of 4 characters or more require an additional 8 bytes plus 1 byte for 
each character in the name. 


Note: Even if an object is erased from the active workspace, the storage used 
is for its name will not be available for use unless the contents of the active 
KG workspace are written to tape with a SAVE command and then loaded or 
() copied back into the active workspace. 


® Identical names that are local to more than one user-defined function do not 
require additional symbol-table space for each function. 


: : % When the contents of the active workspace are written to tape using the 
@ }CONTINUE command, then the stored workspace is loaded into a 5100 
a with a targer active workspace, the amount of available workspace (see (JWA 

system variable in Chapter 5) remains the same as it was when the contents of 
the active workspace were originally written to tape. To take advantage of the 
additional storage in the larger active workspace, write the contents of the active 
workspace to tape using the )SAVE command, then load the stored workspace 
back into the 5100. 


TAPE DATA CARTRIDGE HANDLING AND CARE 


@ Protect the tape data cartridge from dust and dirt. Cartridges that are not 
aa needed for immediate use should be stored in their protective plastic envelopes. 


@ Keep data cartridges away from magnetic fields and from ferromagnetic mater- 
iats that might be magnetized. Information on any cartridge exposed to a 
magnetic field could be lost. 


® Do not expose data cartridges to excessive heat (more than 130° F) or sunlight. 


@ Do not touch or clean the tape surface. 


@ Ifa data cartridge has been exposed to a temperature drop exceeding 30° F since 
the last usage, move the tape to its limits before using the tape. The procedure 
for moving the tape to its limits is: 


( ‘4 1. Use the )LIB command to move the tape to the last marked file. 


2. Use the )MARK command to mark from the last marked file to the end of 
the tape. For example: 


fe - JMARK 200 1 n 


q if where n is the number of the last marked file, plus one. 


w 
Dm 
D 
- 
ae 
oC 
O 


3. When ERROR 012 (end of tape) is displayed, use the }/REWIND command 
to rewind the tape. 
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Chapter 10. The 5103 Printer 


POWER ON/OFF Switch 


The !BM 5103 Printer is available as a feature attachment and has these 
characteristics: 
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Bidirectional printing (left to right, then right to left). The 5103 bidirectional 
printing operates as follows: 


The print head moves from the left margin and prints a line. Succeeding lines 
will be printed in either direction depending on which end of the new line is 
closest to the current position of the print head. The print head will be 
returned to the left margin periodically when printing is not imminent. 


132 characters across the print line. 


Note: \f the width of the forms is less than 132 characters and the [JPW 
system variable (see Chapter 5) is greater than the width of the forms, 
loss of data will. occur as the print head leaves the form. 


Capability of using individual or continuous forms. Maximum number of 
copies is six, but for optimum feeding and stacking, IBM recommends a 
maximum of four parts per form. 


Adjustable forms tractor that allows the use of various width forms. The 
forms can be from 3 to 14.5 inches (76.2 to 368.3 mm) wide for individual 
forms and from 3 to 15 inches (76.2 to 381 mm) wide for continuous forms. 


Print position spacing of 10 characters per inch and line spacing of six lines 
per inch. 


Stapled forms or continuous card stock cannot be used. 


The character printing rate is 80 characters per second. The throughput in 
lines per minute is function-dependent. 


A vernier knob (located on the right side of the printer) that allows for fine adjust- 
ment of the printing position. This knob should only be used when the print head 
is in its leftmost position. 


Page of SA21-9213-0 
Issued 15 September 1975 
By TNL: SN21-0247 


The following sections describe how to insert forms and replace ribbons in the 
5103 Printer. 


HOW TO INSERT FORMS 


Forms Guide Rack The diagrams at the left show the proper forms path 
Rollers (in lower position) for singlepart and multipart forms. The steps to 


insert forms begin below. 
Platen g q 


Forms Path for Singlepart Forms 


Forms Guide Rack 


Rollers 


Forms Path for Multipart Forms 


Friction Feed Rolls 


Form Guide Rack 


1. Pivot the plastic shield forward. 
2. Push the print head to the extreme left position. 


3. For singlepart forms, pivot the form guide rack 
up and forward to a vertical position. For multi- 
part forms, leave the form guide rack in the 
horizontal position. 


4, Push the paper release lever to the rear to acti- 
vate the friction feed rolls. 


Plastic Shield 
Print Head Paper Release Lever 
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Tractors 


Platen 


Tractor Cover and Pins 


Paper-Advance Knob 


Tractor Cover and Pins 


Printer 
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Rollers 


Paper-Advance Knob 


10. 


11. 


12, 


13. 


14. 


15. 


16. 


17. 


Place the forms in position behind the printer. 


Note: The forms must be positioned behind the 
printer so that the forms feed squarely into the printer. 


Thread the paper down, over the rollers, behind the 
tractors, and behind the platen. 


Turn the paper-advance knob to mave the paper around 
the platen until you can grasp it with your fingers. 


Open both tractor covers. 


Pull the paper release lever forward to disengage the 
friction feed rolls. 


Pull the paper up and place the left margin holes over 
the tractor pins. Be sure the left tractor is in its left- 
most position. 


Close the left tractor cover. 


Squeeze the two knobs on the right tractor and slide 
the tractor to align the pins with the right margin holes. 


Place the right margin holes over the tractor pins. 
Close the right tractor cover. 


For singlepart forms, pivot the form guide rack to a 
horizontal position. 


Turn either paper-advance knob to position the form 
for the first line to be printed. The paper should 
exit over the form guide rack. 


Note: To move the form backward, turn either 
paper-advance knob backward and puil the form 
from behind the printer to keep the form from buck- 
ling at the print head. 


Close the plastic shield. If you are installing the 
printer, return to step 7 of Printer Installation 
Procedures. 


CAUTION 
The switch that senses end of forms is deactivated when the 
friction feed rolis are engaged. Thus, the print wires could 


Right Tractor Knobs hit the base platen if no forms are in the printer. 


oo, 


eos, 
oe 


HOW TO ADJUST THE COPY CONTROL DIAL FOR FORMS THICKNESS 


) Copy Control Dial 


ie 


| 


If you are using singlepart forms, set the copy 


oA co . 
control dial on 0. 
2. If you are using multipart forms and the last sheet | 
is not legible, rotate the copy contro! dial toward 0 
. one click at a time to obtain the legibility you desire. : 
/ Hy) 
‘ 


i 3. If you are using multipart forms and the ribbon is 


smudging the first sheet, rotate the copy control 
a dial toward 8 one click at a time until smudging 
a stops. 


a in 


aa 


a 


a oe 
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HOW TO REPLACE A RIBBON 


/ Forms Tractor 

Le 

ee i i 
hal 


1. Turn off power to the printer. 


2. Tilt the forms tractor back by lifting both sides at the 
front. 


3. Raise the printer cover, 


} Power On Switch Printer Cover 
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Feed Roll 
Print Head Release Knob 


Ribbon Loop Ribbon Box Cover 


Print Head Coil 


Loop Ribbon Box 
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12. 


13. 


aS, 


> 


Be sure that the print head is to the extreme left. 


Turn the feed roll release knob counterclockwise until - 
it points to the right. 


Open the ribbon box cover. 
Put on the gloves supplied ‘with the new ribbon. 


Remove the old ribbon from the guides being careful to co 
disengage it from the clip on the print head. 


Lay the ribbon loop on the top of the ribbon in the rib- 
bon box. Pick up the entire ribbon and discard it. 


- 
: | 
Disk es 


Ribbon Holder Cc) 


Eject the new ribbon from its holder into the ribbon 
box by pressing on the disk. 


Remove the disk from the ribbon and discard the disk ( 
and the holder. 


Hold the coil lightly with one hand and pull about 10 
inches (254 mm) of ribbon from the coil. 


Form a loop from the ribbon across the print head. ) 


-_ 


Print Head 


Guides 


Left 
Guide Post 


Upper 
Guide Post 


Guide Shoe 


Platen 


Slot 


Feed Rolls 


_ 


Ribbon Box 


Feed Roll 
Release Knob 


14. 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


Thread the part of the loop nearest the platen between 
the feed rolls and on the inside of the upper guide post. 


Turn the feed roll release knob clockwise to close the 
feed rolls. 


Thread the ribbon between the print head and the platen. 


Be sure the ribbon is under the clip on the print head. 


Thread the other part of the loop through the slot in the 
bottom of the ribbon box. 


Thread the ribbon through the guide shoe and around 
the left guide post. 


Insert the horizontal part of the ribbon twist (bottom 
edge first) between the two horizontal guides. 


Move the print head back and forth across the 
platen to remove the slack from the ribbon. Con- 
tinue moving the print head until you are sure 
that the ribbon feeds properly. 

Close the ribbon box cover. 


Close the printer cover and turn the power on. 


Reposition the form tractor. 
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Chapter 11. Error Messages 


Error Message 


ALREADY MARKED 


CHARACTER ERROR 


DEFN ERROR 


DEVICE NOT OPEN 


DEVICE TABLE FULL 
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Error messages can result when using APL primitive (built-in) functions, user- 
defined functions, system commands, system variables, or input/output opera- 


tions. The following list contains the APL error messages along with some pos- 
sible causes for the error condition and a suggested user’s response: 


Cause 


The specified file was previously marked. 


An invalid character was entered. 


An invalid request to use the function 
definition mode was made: 


@ A Vsymbol was erroneously used in 
a statement. 


@ An attempt was made to reopen a 
locked function. 


@ An attempt was made to reopen a 
function using more than just the 
function name. 


@ An attempt was made to open a new 
function definition using the name of 
a previously defined global variable name. 


@ An invalid edit request was made in 
function definition mode. 


@ An attempt was made to edit a pen- 
dent function. 


An attempt was made to read a data file 
and the file is not open. 


An attempt was made to establish more 
than eight variable names to be shared 
for tape or printer input/output. 


User’s Response 
If the file is to be remarked, enter GO. 


Note: Any existing data in the files ( 
following the last re-marked file will no 
longer be available. 


Enter a corrected statement. 


If the statement was intended to open or 
close a function, the V is valid only in the 
beginning and ending positions. 


Enter a corrected statement. 


Enter a different function name or erase 
the global! variable. 


Enter a valid edit request. 


If the suspended function execution can be : 
terminated, clear the state indicator (see \ > 
Chapter 7), then edit the function. " 
Assign the information required to open the 

file to the shared variable. 


aoe, 


Retract any unused shared variable names. f _) 


Se. Oe 


Error Message 


ERROR eee ddd 


ERROR 002 ddd 
ERROR 003 ddd 
ERROR 004 ddd 


ERROR 005 ddd 


ERROR 006 ddd 


ERROR 007 ddd 


ERROR 008 ddd 


ERROR 010 ddd 


ERROR 011 ddd 


ERROR 012 ddd 
ERROR 013 ddd 


ERROR 014 ddd 


ERROR 050 ddd 


Cause 
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User’s Response 


eee is the error code for an input/output device operation and ddd is the device number. 
The device numbers are: 500—printer; 001—built-in tape unit; OO2—auxiliary tape unit. 
Following is a list, cause, and user’s response for the input/output device error messages: 


Command error. 
Tape error. 
Tape error. 


The tape cartridge is not inserted in 
the indicated tape unit. 


An attempt was made to write on a tape 
that is file-protected. (The SAFE switch 
on the tape cartridge is in the SAFE 
position.) 


Tape read error. 


The tape cartridge was probably removed 
from the tape unit when data or a work- 
space was being written to tape. The 
data in the file cannot be used. 


Data is to be written to a data file, but 
all the space in the file has been used. 


An attempt was made to write the active 
workspace on tape with a )SAVE 
command, but the specified file could 
not contain all the information from the 
active workspace. 


A file number was specified that has 
not been marked. 


The end of the tape has been reached. 
The specified device is not attached. 


Device error. 


The printer has run out of forms. 


Performing tape operations with an un- 
MAR Ked cartridge will cause error 004. 
Otherwise, try the operation again. If the 
error occurs a second time, call your ser- 
vice representative. 


Insert a tape cartridge and try the 
operation again. 


If you want to write on the tape, turn the 
SAFE switch on the tape cartridge off of 
the SAFE position. 


Use the PATCH command and Tape 
Recovery program (see Chapter 2) to 
recover as much data as possible. 


Try the operation again. If the error 
occurs again, copy the files following the 
file that caused the errors onto another 
tape. Then use the )MARK command and 
re-mark the tape from the file that caused 
the error. 


Use the }MARK command to format a 
larger file and do the operation again. 


Use a larger file to save the active 
workspace. 


Specify the correct file number or use the 
JMARK command to mark the tape. 


Use another tape cartridge. 


Try the operation again. If the error 
occurs a second time, cal! your service 
representative. 


Insert forms in the printer (see Chapter 10). 
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Error Message 


ERROR 051 ddd 
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ERROR 052-059 ddd 


DOMAIN ERROR 


EXCEEDED MAXIMUM 
RECORD LENGTH 


IMPLICIT ERROR 


INCORRECT COMMAND 
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SS OO 


Cause 


The printer POWER ON/OFF switch is 
turned off. 


Printer errors. 


The function indicated by the caret (A) 
cannot operate on the arguments given: 


@ The result exceeds the capacity of 
the 5100 (<5.3976E™ 79 or 
>7.237E75). 


@ A ccharacter argument cannot be used 
in an arithmetic operation. 


@ The argument is not mathematically 
defined for the function (12+0). 


@ Numeric and character data cannot 
be joined together. 


@ An error occurred in a locked function. 


The tape was removed before the data 
file was closed during a tape input/ 
output operation. 


The system variable that precedes the 
error message was previously assigned 
an invalid value or was undefined in a 
function due to the system variable 
being made local to the function. 


Note: This error message is not displayed 
until the system variable in error is used 
by the APL system. 


A system command was entered 
incorrectly: 


@® The command keyword was not a 
valid keyword. 


@ One of the parameters was entered 
incorrectly. 


@ Too many parameters were entered 
for the command. 


User’s Response 


Turn the POWER ON/OFF switch on. 


Try the operation again. If the error 
occurs a second time, call your service 
representative. 


Determine the correct arguments for the 
function in error. Then correct the state- 
ment in error. 


The data in the file cannot be used. 


Assign a valid value to the system variable 
(see Chapter 2). 


Enter the command in its correct form. 


SETS 


C) 


) 


Error Message 


INDEX ERROR 


~\ INTERFACE QUOTA 
C } EXHAUSTED 


INTERRUPT 


INVALID DATA TYPE 


INVALID DEVICE 


INVALID DEVICE 
NUMBER 


INVALID FILE 


Cause 


The index values given are outside the 
boundaries of the array or a primitive 
function or APL operator being sub- 
scripted by index [1] has been given 
an argument that does not have an |! 
dimension. 


An attempt was made to establish more 
than eight variable names to be shared 
for tape or printer input/output. 


Attention was pressed twice when the 
5100 was processing data or an invalid 
tape input/output operation was 
attempted. 


Only interchange data can be used, but 
there was an attempt made to use data 
that is not a character scalar or vector. 


An attempt was made to open a data 
file with other than character data. 


A device was specified that does not 
exist or is incorrect for the operation 
to be performed. 


A device number that does not exist 
was specified. 


The file type is not valid for the 
attempted operation. For example, 
an attempt was made to load a data 
file or read a workspace file. 


An attempt was made to foad or copy 
a damaged file. The file was probably 
damaged by the tape being removed 
from the tape unit before a save 
operation was complete. 


The wrong file 1D was specified. 


User’s Response 


If a variable is being indexed, check its 
shape (pA) against the index values. 


lf a primitive function or operator is being 
indexed, determine the rank(s) (p pA) of 
its argument(s); then check the index to 
see if it is equal to or less than the re- 
quired rank. 


Check the index origin (IO) to ensure 
that it is consistent with the statement 
being executed. 


Retract any unused shared variable names. 


If an invalid tape input/output operation 
was attempted, check the file open infor- 
mation to make sure the file was opened 
correctly. 


Change the data to a character scalar or 
vector. 
Enclose the information required to open 


the data in single quotes. 


Specify the correct device number. 


Specify the correct device number. 


Use the )L1B command to determine the 
file type. 


The data in the file is unusable. The file 
can be dropped (use the DROP command) 
and reused. 


Use the )LIB command to find the correct 
file ID and reenter the statement. 
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Error Message 


INVALID FILE NUMBER 


INVALID OPERATION 


INVALID PARAMETER 


LENGTH ERROR 


LINE TOO LONG 


NONCE 


NOT COPIED: names 
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Cause 


The file number 0 was specified for a 
)LOAD, )SAVE, )CONT, )DROP, 
)COPY or )PCOPY command. 


An attempt was made to open a data 
file, but the file number was not valid. 


An invalid tape input/output operation 
was attempted. This message is followed 
by an INTERRUPT error message. 


A keying error was made or an incorrect 
parameter was specified when entering 
the information required to open a data 
file or specifying printer output. 


A keying error was made when entering 
the parameters for a system command. 


The shapes of the two arguments are 
not valid for the function indicated by 
the caret (A). 


An attempt was made to edit a statement 
(in a user-defined function) that is greater 
than 115 characters. 


An attempt was made to save a work- 
space that contained a user-defined func- 
tion with a statement having more than 
115 characters. In this case, the error 
message is preceded by the function name 
and the statement number that caused 
the error. 


An l|-beam function was used. These 
functions are not used in the 5100 APL 
system. 


A )PCOPY was issued, but each object 
named in the message was not copied. 
The active workspace already contained 
a global object with the same name. 


User’s Response 


Reenter the command specifying the 
correct file number. 


Use the )L!IB command to find the correct 
file number. Then reenter the information 
required to open the data file. 


Check the file open information to make 
sure the data file was opened correctly 
or make sure you are using the shared 
variable correctly. 


Enter the file open information or system 
command again, correcting the keying 
errors. 


Make sure the arguments are valid for the 
function. Then reshape (restructure) the 
arguments. 


Break the statement up into two state- 
ments or use the [JCR and []JFX functions 
to edit the statement. 


_ Use the (JCR function to make the user- 


defined function a matrix; then save the 
workspace on tape. 


Do not use the I-beam functions. 


Issue a )COPY command if the named 
objects should be copied. 


Error Message 


NOT FOUND: names 


Sie 
} 
S NOT SAVED, THIS WS 
IS workspace 1D 


q ‘NOT WITH OPEN DEVICE 


NOT WITH SYSTEM 


ERROR 
@ ‘| NOT WITH SUSPENDED 
_/ FUNCTION 
RANK ERROR 


Cause 


A )ERASE command was issued, but 
the global objects named in the message 
were not found in the active workspace. 


A )COPY or )PCOPY command was 
issued, but the specified global object 
does not exist in the specified workspace. 


A )SAVE command was issued but the 
stored workspace ID is not the same as 
the active workspace !D. 


An attempt was made to issue a system 
command or open a file on a tape unit 

that is already being used for input/out- 
put operations. 


A )OUTSEL command was issued, but 
printer output has been specified for a 
shared variable. 


An attempt was made to do an opera- 
tion other than )CLEAR after a 
SYSTEM ERROR occurred. 


An attempt was made to do a )SAVE, 
)COPY, or )PCOPY operation and the 
active workspace contains a suspended 
function. 


An attempt was made to use a function 
that requires the rank of the arguments 
to conform, but they do not. For 
example, a function requires the rank 
of the arguments to be the same, but 
they are not. 


An attempt was made to use an argument 
whose rank is too large for the operation. 


The number of semicolons in the index 
does not equal the rank minus 1. 


User’s Response 


Reissue the command using the correct 
object names. 


Reissue the command using the correct 
object name or stored workspace. 


Use the correct 1D or change identifica- 
tion of the active workspace, using the 
JWSID command; then reissue the )SAVE 
command. 


Close the data file or wait until the input/ 
output operation is complete before 
issuing the command or the file open 


information again. 


Retract the printer shared variable. 


(see SYSTEM ERROR) 


Clear the suspended function by using 
> (right arrow). 


Make sure the arguments are valid. Then 
reshape (restructure) the arguments so that 
they have the correct rank (9 pA). 


Use the correct number of semicolons. 
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Error Message 


S| DAMAGE 


SYMBOL TABLE FULL 


SYNTAX ERROR 


SYSTEM ERROR 


VALUE ERROR 
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Cause 


The state indicator was made invalid 
because one of the following occurred: 


@ A function exists in the state indica- 
tor list, but the function was erased. 


@ A suspended function's header was 
changed. 


@ A label was removed or changed 
on the suspended statement. 


@ Statements were added to or erased 
from a suspended function. 


More symbols were used than the number 
of symbols allowed. 


The symbol table in the stored work- 
space is full and a load operation was 
attempted. This error is caused by the 
latent expression variable even if it 

has not been assigned. 


The part of the statement indicated by 
the caret (A) is syntactically invalid. 


A malfunction occurred in the APL sys- 
tem program and the data in the active 
workspace is lost. 


The object indicated by the caret (A) 
has not been given a value: 


@ If the object is a variable name, the 
variable was not previously assigned 
a value. 


@ If the object is a function name, the 
function header did not specify a 
result, or the function did not assign 
a value to the result variable. 


User’s Response 


Use the )SI or )SIV command to display 
the state indicator. Clear out the state 
indicator by entering > repeatedly. 


JSAVE the workspace, )CLEAR the active 
workspace, increase the number of sym- 
bols allowed by using the SYMBOLS 
command, then )COPY the stored work- 
space into the active workspace. 


Note: Erasing a symbol from the active 
workspace does not remove it from the 
symbol table; however, saving the active 
workspace and loading it again will remove 


any unused symbols from the symbol table. 


Enter a corrected statement. 


Enter the )CLEAR command; if the error 
continues to occur, call your service 
representative. 


Note: |f SYSTEM ERROR occurred on a 
load or copy operation, the error may be 
caused by a bad stored workspace file. 
Try loading or copying another stored 
workspace file to see if the error occurs 
again. 


Assign a value for the indicated variable or 
correct the function so that it has an ex- 
plicit result. The value must be assigned 
before the object is used. 


Error Message 


é 9 WS FULL 
\ 
/ 


WS LOCKED 


WS NOT FOUND 


WS TOO BIG 


Cause 


One of the following conditions occurred: 


@ A )COPY or )PCOPY command was 
issued, but the active workspace could 
not contain all the objects requested. 


@ The active workspace could not con- 
tain all the information required to 
build a defined function. 


@ The active workspace could not con- 
tain the intermediate results of an 
APL expression. 


@ The active workspace could not con- 
tain the final results of an APL 
expression. 


@ The active workspace could not con- 
tain the information required to do 
input/output operations. 


@ A workspace was written to tape 
with a )SAVE command, but the 
extra storage required when loading 
the stored workspace back into the 
active workspace exceeds the avail- 
able storage. 


The workspace is password-protected, 
but no password or the wrong pass- 
word was specified in the command. 


A )LOAD, )DROP, )COPY, or 

)PCOPY command was issued, but 
there is no stored workspace with the 
identification specified in the command. 


One of the following conditions occurred: 


@ An attempt was made to load a work- 
space stored with the )CONTINUE 
command into a 5100 with less in- 
ternal storage. 


@ An attempt was made to load a work- 
space stored with the )CONTINUE 
command into the active workspace, 
but IMFs have been applied reducing 
the available internal storage. 


@ An attempt was made to write the 


active workspace (using the )JCONTINUE 


command) into a file that is too small. 


User’s Response 
Erase unnecessary objects. If there is still 


not enough space, do a )SAVE and 
)LOAD of the active workspace. 


Use the )COPY command to make the 
stored workspace into two workspaces. 


Reenter the command with the correct 
password specified. 


Reenter the command with the correct 
workspace identification. 


Use a 5100 with enough internal storage. 


Clear the active workspace, load the stored 


workspace into the active workspace, 
)SAVE the active workspace, apply the 


IMFs, then load the stored workspace again 


or copy only the required objects. 


Use a file that is large enough. 


| 


Error 
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Appendix A, Installation Procedures and installation Planning Information 


INSTALLATION PLANNING 


IBM 5100 Portable Computer 50 Ib (24 kg) 


Cc 
° 
‘- D> 
BE 
ee 
g 
E£& 


O) 
The 5100 Portable Computer and associated units are designed for these 
environments: 


Operating Environment 
Dry bulb temperature 60°-90° F (15°-32° C) / * 
Relative humidity 8%-80% 


Maximum wet bulb 
temperature 73° F (23° C) 


Nonoperating Environment 


Dry bulb temperature 50°-105° F (10°-43° C) 


Relative humidity 8%-80% 


Maximum wet bulb ° : eo 
temperature 80 F (27° C) he 
IBM 5103 Printer 
56 Ib (26 kg) IBM 5100 Portable Computer IBM 5106 Auxiliary Tape Drive 
50 Ib (24 kg) 18 Ib (8 kg) 


23 inch 
(59 cm) 


10 inch 
(26 cm) 


13-1/4 inch 17-1/2 inch 
1/4 5 


—) 


7-1/4 inch 


(19 cm) 
7-1/2 inch 
(19cm) . 
OO 
12-1/4 inch 
(31 cm) 
S 
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Electrical 
-. A 115-volt, 15-ampere, single-phase, 60-cycle grounded receptacle is required for 


each unit. Allowable tolerance is +10% on the voltage and +1/2 cycle on the 
frequency. 


A duplex receptacle is recommended so that the 5100 Portable Computer and an 
C my auxiliary tape unit or a printer can be powered from the same outlet. 
) 


im 
ie 
ray 
& 
we 
bed 
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Planning 


The auxiliary tape unit power plug has a tap so that a printer, TV monitor, or 
communication modem can be attached for electrical power. 


All attachment power cords are 6 feet (1.8 meters) long. 
( } Current Requirements are: 


5100 Portable Computer 3.0 amps 
5103 Printer 1.0 amp 
5106 Auxiliary Tape Unit 0.5 amp 


The heat output is: 


5100 Portable Computer 780 BTU per hour 
5103 Printer 300 BTU per hour 
5106 Auxiliary Tape Unit 130 BTU per hour 


( ; Cabling 


The 5100 Portable Computer is connected to the printer by a 4-foot (1.2-meter) 
signal cable and to the auxiliary tape unit by a 2-foot (0.6-meter) signal cable. 
The cables are supplied with the features. 


When both the printer and auxiliary tape unit are installed, the printer must be 
attached to the auxiliary tape unit instead of the 5100 Portable Computer. 


When only the auxiliary tape unit is installed without a printer, the terminator 


assembly must be moved from its storage position to the signal cable receptacle 
immediately below it, on the back of the auxiliary tape unit. 
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Communications 
Contact your IBM marketing representative to obtain modem specifications. 


Contact your local communications company representative immediately to allow 
adequate time for equipment hookup. 


The required 6-foot ( 1.8-meter) cable is supplied. of 
OO) 


The modem connector must be compatible with Amp Corporation receptacle 
#205207 (25 position) or equivalent. 


BNC Connector for External Monitors 
(40 mA of current is available to drive 
external monitors, the last monitor in 
a parallel string must be terminated 
with 75 ohms) 


Terminator (storage position) 
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INSTALLATION PROCEDURES 
5100 Installation Procedure 


After you have placed the 5100 where you intend to use it, make sure the red POWER 
ON/OFF switch (located on the front panel) is in the OFF position. Plug the power 
line into a grounded electrical outlet. 


Note: For proper operation, the 5100 must be plugged into a grounded outlet. 
Set the POWER switch to ON, and be sure that the fan is operating: 


@ If your machine location is not too noisy, you should hear the fan motor 
operating. 


@ If you are not sure, hold a light piece of paper near the air intake on the back of 
the machine. The loose end of the paper should be pulled toward the machine. 


If the fan does not appear to be operating, check your power outlet. If it is OK, set 
the POWER switch to OFF and call for service. Do not continue with these 
instructions. 


If the fan is operating, wait for about 20 seconds and your 5100 wil! be ready for 
operation. 


APL Checkout Procedure 


0 1. After power has been on 20 seconds, the display screen should show: 


. o 
| CLEAR WS A The underline (cursor) flashes on and off. 


If the display screen does not show the above information, check the 

following top panel switches: 

a. Turn the BRIGHTNESS control to get the best character definition. 

b. Set the DISPLAY REGISTERS switch to the NORMAL position. 

c. Set the L32 64 R32 switch to the center (64) position. 

d. Set the BASIC/APL switch (combined machines only) to the APL 
position. 

e. If information displayed is not as shown above, press the RESTART 
switch. This recycles a portion of the power-on sequence. If the infor- 
mation displayed is still not as shown above (after the 20-second delay), 
call for service. 
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O 2. If the display screen does not show the correct results in the remaining steps 


of this procedure, press RESTART once, go back to 
the correct result is still not shown, call for service. 


step 1 and try again. If 


Enter the data shown by the key drawings below. The data will be displayed 


as the keys are pressed. 


c 
72 
pe) 
2 
ws 
ped 
wn 
c 


Where the bottom portion of the key is shown shade 


if you make a keying error, you can press the backspace key 


(above 


EXECUTE) to backspace the cursor, then press the correct key. 


d, hold the shift key | 


down while you press the character key. (Enter the unshaded character.) 


Press the following keys in sequence line by line: 


The display now shows: 


CLEAR WS 


C1 es 


Besure to use the multiply 
key and not the alphabetic 
x. 


OD 3. Below the lines of the test program that you just entered, the answer of 27 


will be displayed (the program multiplies 3 times 9): 


VIEST 
Lid Acs 
L211 Beg 
C3] Ceaxk 
cud C¥ 

TEST 
2? 
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If you checked out the tape operation under the BASIC checkout procedures, 
insert the tape cartridge into the 5100 and go to step 6. Remove an unused or 
pcs scratch tape cartridge from its package. Check that the arrow is pointing away 
C from the word SAFE as shown in the illustration. Insert a coin or screwdriver 
into the slot if you must turn the triangular arrow away from the word SAFE. 


O 4. 


Note: Do not use any prerecorded tape cartridges that were shipped with your 
machine. 


< : This edge goes into machine first. 


C) 5A. Insert the tape cartridge into the 5100 (metal bottom down), and press it in 


until it seats firmly. Then press the following keys (you must leave a space 
C ‘ before each number): 


1 


5B. The previous step initialized the tape to hold information. if a message of 
MARKED is displayed, go to step 6. If a message of ALREADY MARKED is 
displayed, the tape is already marked. To re-mark the tape, press: 


. O16. Press the following keys: 


‘| space space [ 
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O 7. The last step wrote the program onto tape, but it is still recorded in the 
storage workspace. To prove the program can be read from tape, the program 2 
must be erased from the workspace. To do this, press the following keys: i ) 


Jes 
a 


© 8.  Toread the program from tape into the 5100, press the following keys: 


c 
e) 
ror 
Bi 
7 
= 
va 
c 


(1 9. When LOADED 1002 WS is displayed, press these keys: 


The display screen should again show: 


TEST 
27? 
Position 1 : 
Position 7 
This completes the APL checkout procedure. / 2 
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Check to see that you received the following documentation: 

a. /BM 5100 APL Introduction, SA21-9212 

b. /BM 5100 APL Reference Card, GX21-9214, located in the back of this 
binder 

c. Maintenance Library Binder 


If the words above the top row of numeric keys are labeled on the left with: 


BASIC , , 
APL \ , you have a combined machine. 
COMM 
BASIC 
APL 


, you have a combined machine with the communications feature. 


rete \ , you have an APL machine with the communications feature. 
comm , you have a BASIC machine with the communications feature. 
BASIC 

if you have not checked out BASIC on a combined machine, set the 
BASIC/APL switch to the BASIC position, press RESTART, and go to the 
BASIC Checkout Procedures in Appendix C of the /BM 5100 BASIC 
Reference Manual, SA21-9217. If you already did the BASIC checkout 
procedures, continue with step 11. 


If the auxiliary tape unit is to be installed, unpack the tape unit and pro- 
ceed to the Auxiliary Tape Unit Installation Procedure which follows. 
After installing the auxiliary tape unit, proceed to step 12. 


If the printer is to be installed, unpack the printer and proceed to Printer 
Installation Procedure, which comes later in this appendix. After install- 
ing the printer, return to step 13. 


If your 5100 is equipped with the communications feature, follow the 
installation Instructions in the /BM 5100 Communications Reference 


Manual, SA21-9215; then go to step 14. 


When the preceding devices or features are installed, or if none are, begin 
reading the /BM 5100 APL Introduction to learn how to operate your 5100. 
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Auxiliary Tape Unit Installation Procedure 


O 4. Set the 5100 and auxiliary tape unit power switches to OFF. 


O 2. Remove the shipping tape from the signal cable (flat cable) and connect the 
signal cable into the back of the 5100. Make sure the connector fits squarely. 
Turn the knob in a clockwise direction until the connectors fit together firmly: 


Storage Position for Terminator Plug 


io) , 


tN 


FI Cee 
®@ | \ i 
(~} 
\ Tape Signal 
we Cable Connector aT 
( 
Terminator Plug \ \ 
= a 


The terminator plug connects 
into the lower position. 
Power Line Plugs 


O 3. Check that the terminator plug is in place on the rear panel as shown in the 


preceding diagram. 


0 4. Remove the shipping tape from the power line and plug the power line into 


a grounded electrical outlet. 


0D 5. Set the auxiliary tape unit POWER switch to ON, and be sure that the fan 


is operating. 


a. If your location is not too noisy, you should hear the fan motor operating. 
b. If you are not sure, hold a light piece of paper near the air intake on the 
left side of the tape unit. The loose end of the paper should be pulled 


toward the tape unit. 


If the fan does not appear to be operating, check your power outlet. If it is 
OK, set the POWER switch to OFF and call for service. Do not continue with 


these instructions. 


O 6. Set the 5100 POWER switch to ON and continue to the checkout procedure. 
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Tape Unit Checkout Procedure 


Note: The following steps assume you are using the same cartridge that you used 
to check the 5100. If you are not, write any program onto the cartridge in the 
auxiliary tape unit and read it back. 


0 1, Insert a tape cartridge into the auxiliary tape unit after checking that the 
arrow is pointing away from the word SAFE. 


Cc 
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(1 2. Press the following keys to read in the program that was stored on tape during 
the 5100 checkout procedure: 


space | 


0 3. After the message LOADED 2002 WS appears on the display screen, press 
the following keys: 


space 


D 4. The message CONTINUED 2002 WS appears on the display to verify that 
the program was written back to tape and was checked by the 5100. 


This completes the checkout procedure for the auxiliary tape unit. 


Return to step 12 of the 5100 checkout procedure. 
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Printer Installation Procedure 
O 1. Set all POWER switches to OFF. 


0 2, If you have an auxiliary tape unit, remove the terminator plug from the 
bottom position and insert it into the top position (storage position). 


0 3. Remove the shipping tape from the printer signal cable (flat cable) and 
connect the signal cable to the back of the auxiliary tape unit, if it is 
attached, or to the back of the 5100. Make sure the connector fits 
squarely. Turn the knob in a clockwise direction until the connectors 
fit together firmly: 


long 
2 
~ 
a 
r 
a} 
n 
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BNC Connector 
for TV Monitor 


Forms Tractor 


Storage Position for 5100 Portable 


Terminator Plug Computer (rear) Printer (rear) 


Auxiliary Tape 
Unit (rear) 


HIHTUIQUELCHEUUENOOEASTONUNUEddd Qt RUUD daUddedgUdAgaN dcaddoac atte 


Connector 
Position 


The printer signal connects to the back of the 
5100 if the auxiliary tape unit is not attached. 


O 4. Remove the shipping tape from the printer. power line and plug the power 
line into the back of the auxiliary tape power plug or into a grounded elec- 
trical outlet. 
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| O 5. Unpack the forms tractor and set it in place on top of the printer as shown 
in the drawing. Install the forms guide rack on the forms tractor. 


c 
ie} 
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Forms Guide Rack 


q Hole for Forms Guide Rack 


a (inside frame) Position this part of the 
C forms tractor first. Press 


down firmly to snap into 
place. 


Then rock the forms 
tractor forward and 
snap this part into place. 


Forms Tractor 


Must be in this position. 


O 6. Insert paper in the printer. Use the printer information in this manual if you 
need help in inserting the paper (see Chapter 10). 


D 7. Set both the printer and 5100 POWER switches to ON and continue on to 
=) the checkout procedure. 


« Printer Checkout Procedure 


pe Press several alphameric keys to display some information. Then, hold down the 
i inae :. CMD key and press the key below Copy Display on the 
Xx 


command word strip. The printer will provide a copy of the information on the 
display screen. 


) 
C e Return to step 13 of the 5100 checkout procedure. 
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Appendix B. APL Character Set and Overstruck Characters 


Overstruck characters are formed by entering one character, backspacing, and enter- 
ing the other character. The 5100 APL character set consists of all the characters 
represented on the 5100 keyboard plus the following overstruck characters: 


z 
< 
an 
c 
a 


Function Character 


Comment A 


Execute 2 


APL 
Characters 


o- 


Factorial, combination 


Format e 


ra : 
c J 
: 
N J 
Grade down YV (.} (CJ 
Grade up 4 4 
H 
Logarithm ®@ * 
P 
Matrix division Gi = : 
L x 
Nand x A ra 
Nor Vv v < 
9 T 
Protected function v = a 
G T 
| Quad quote Md} C ; 
(ee K 
Rotate, reverse 0) (i) 
Transpose & \ 
/ 
Compress 7 (see note) 
Expand \ (see note) 
+ 
Rotate, reverse © {see note) 


Note: These are variations of the symbols for these functions; they are used when 
the function is acting on the first coordinate of an array. 
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Appendix C. Atomic Vector 


The following chart shows the character, the character name, and the index of 


that character in the atomic vector: 


Character Character Name 


: BRACKET. he Sat GoM 
‘ RIGHT BRACKET 2... 4 
i LEFT PARENTHESTS. . . 0. 
) RIGHT PARENTHESIS . ., 
; SEMICOLON . 6 0. 1 4 4 
f SLASH . oo. 0. 2. 5 6 8 9 4 
‘ BACK SLASH. . 6. oo. 4. 
i oy erent: ape Set. oe 


RVEL, ee ee 
QYERESTS CUPPERSHIFT 2) 
+ PLUS 
i MINUS 


“ GIVI, 
re STAR... 
{ MAX LMUM 


THAN hone ; 
THAN GR OE QUAL. ' 
EQUAL oo 
GREATER THAN “OR EQUAL 
* GREATER THAN. ; 
if NOT EQUAL 


Index 
(T10<-1) 


sey 
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Character 


EGSszr a. FBo 


cE 


Character Name 


ALPHA. . oe ek kk 
EPS ELON: 4. cn yoke a a ae a aa 
TOTA, 2. ee 
RUG ok Gm ne GS ae wa. A 
OMEGA cer wie ae tas Sas hey GL 
COMMA, nd ie ME hn Se 
SHRTEK CEXCLAMATION) . 
REVERSAL. 1, 

ENCOGE <RASES ie Cipche & 
TECOME (REPRESENTATIONS 
CIRCLE, 

QUERY 

NOT . oo. 0, 

UP ARROW, 

CHOWN ARR, 

SUBSET , aa ie we MS ede EOF 
RIGHT SUBSET. . oo. 0.0. ,. 4.5, 
CaP oR 

CUP ii a 

UNDIERSCORE. ., 

TRANSPOSE 

we REAM , fe say pea 

NULL CSMALL CEROLED  . 

QUAN. 2... ek ee 
QUATE QUOTE, 2. 1 ee ee 
MOG te aS is ai EP EP ay Si ar A 
NANT 2... ee ee 
NOR? fae Suc ae fe cde A GA Ee a 
LAMP=COMMENT. . oo. 0.0. . 0 4 
GRATE UP, . oo. . oy. ee 
GRATE TOWN. 2 oo. . . ee 
QOVERSTRUCK CU RCLE-HYPHEN . 
CVERSTRUCK SLASH-HYPHEN .. 
QOVERSTRUCK BACK SLASH-HY PHEN 
MATRIX TIVITE 

FORMAT, ; 

EXECUTE, 

AMPERSANT 

AT. . 

POUND 

NOLLAR . 

UNUSED, x 2st 

TRACE (CT ELTA) 

STOP ¢S THELTAD., 

Pad oe Ae ok 
k 
C 
Te gh ase th Re, ee AGE ae he A 
fe 

FF 


Gi... 


Index 
(T10<1) 
Wes 
hy by. 
WS 


Wd 


Character 


Character Name 


VELTA 


A-“UNTERSCORE . 


B-LINTIER 
Ce UNTER SCORE. 
T-UNTERSCORE 
E-UNDERSCORE . 
F-UMTER SCORE. 
G-UNTERSCORE . 
HUNTER SCORE. 
T-UNTHERSCORE . 
Je UNTIERSCORE 
K-UACERSCORE . 
Lo UNDER SCORE. 
M-UNTERSCORE 
N-UNTERSCORE 
QO-UNTERSCORE, 
PUNTER SCORE 
Q-UNDERSCORE 
R-UNDERSCORE 
S-UNTERSCORE . 
T-UNTERSCORE 
J-UNTDERSCORE 
VeUNTERSCORE . 
W-UNTHERSCORE . 
X-UNTIERSCORE . 
Yr UNTEERSCORE 
Z~-UNDERSCORE . 


QVELTA-UNTERSCORE , 


0 : 4 t ' t ' 
2 ath a cites 


Be ' ’ t ' a ' 


3 t a ' ' a 7 


Index 
(710<1) 


Pu 
BSMar dt se 95 
Bok Ai Bes 96 
97 
99 
99 
100 
104 
102 
103 
104 
; 1085 


Le 108 
109 

110 = 

112 2 

112 = 
113 
14 
145 
‘ 114 
rs Li? 
a eee 118 
os Lag 
120 
at Hee % L24 
aks al 122 
ae ; 123 
—_ -_ 124. 
; os 125 
ae 126 
127 
' 128 
ae ’ Lay 
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oe ee 


Index 
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Appendix D. 5100 APL Compatibility with IBM APLSV 


The 5100 APL system differs from the IBM APLSV system primarily because the 
5100 is a single user system with different input/output devices and it has display 
screen output rather than typewriter output. The differences are as follows: 


Turning power on signs the user on; therefore, no sign-on or ID number is 
required. 


The 5100 active workspace is generally smaller than APLSV active workspace. 
It is further limited by the shared variable processor which uses it for input/ 
output buffers and work areas. 


The default number of symbols is 125 instead of 256, which increases the avail- 


able workspace for most users. 


The library number that appears in system commands has been redefined to a 
device/file number. It is a 1- to 5-digit number that specifies the device and 
file number where a workspace is to be )SAVE‘d or )LOAD’ed. If the number 
is less than 4 digits, it is only the file number; device 1 is assumed; otherwise, 
the high-order 1 or 2 digits is the device number. 


The )LOAD, )COPY, )PCOPY commands require the library (device/file) num- 
ber and workspace ID parameters. The )DROP command requires the library 
(device/file) number and if the specified file is a stored workspace file, the 
workspace ID parameters. These requirements protect the user from inadver- 
tently destroying his or her saved workspaces. 


The following commands are not supported because they apply only to multi- 
terminal systems and remote systems: 


J)OFF; )OFF HOLD; )CONTINUE HOLD; )PORTS; )MSGN; )MSG; )OPRN; 
JOPR; all special system operator commands 


The following commands are not supported because the function is not 
supported: 


)GROUP; )GRPS; )GRP 
The following commands are not supported: 


JORIGIN; )WIDTH; )DIGITS 


They are available with the system variables []IO, (JPW, and (IPP, respectively. 
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@ The following commands have been added to support the 5100 processor and 
its input/output devices: 


JMARK — To format tape files 

JOUTSEL — To specify which transactions are to be printed 
JREWIND — To rewind the tape unit 

)MODE — To select communications mode 

)PATCH — To load an IMF or Tape Recovery program into storage 


from an !BM-supplied tape 


@ The )CONTINUE command has been changed to save workspaces with sus- 
pended functions. The parameters are the same as )SAVE but the stored work- 
space cannot be )COPY‘ed, or )LOAD’‘ed into a 5100 with a smaller active 
workspace. 


@ Since the 5100 system is not in a communications environment, the RESEND 
message will not occur. 


@ )SAVE and )LOAD have to be implemented with only one workspace area 
(no spare); therefore, the following error messages have been added: 


= 
F 
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1. Function name [statement number] LINE TOO LONG — Cannot save 
functions with statements greater than 115 characters. 


2. WS TOO BIG — Workspace is too big to fit in the active workspace. 


3. NOT WITH SUSPENDED FUNCTION — Only the JCONTINUE command 
will work to write the workspace to tape. 


@ For diagnostic reasons, occurrence of SYSTEM ERROR does not clear the 
workspace. The following message occurs when attempting anything other than 
)CLEAR after a system error: 


NOT WITH SYSTEM ERROR 
© Saved workspaces are not time-stamped and dated because that information is 


not available in this system; therefore, the following messages now occur after 
library operations: 


206 


COPIED device/file wsid 
LOADED device/file wsid 
SAVED device/file wsid 
CONTINUED  device/file wsid 
DROPPED device/file wsid 


Z 


aera 


@ The )LIB command does more than list the saved workspaces. It lists all the 
files on the specified device. The response, therefore, contains more informa- 
tion (see )LIB command in Chapter 2). 


@ The following system messages have been added for the new system commands 
and input/output operations: 


ALREADY MARKED 
DEVICE NOT OPEN 
DEVICE TABLE FULL 
ERROR eee d 

EXCEEDED MAXIMUM RECORD LENGTH 
INVALID DATA TYPE 
INVALID DEVICE 
INVALID DEVICE NUMBER 
INVALID FILE 

INVALID FILE NUMBER 
INVALID OPERATION 
INVALID PARAMETER 
MARKED bn 

NOT WITH OPEN DEVICE 


@ The shared variable processor on the 5100 is designed to provide an interface 
between only one APL user and one I/O processor. Thus, only one processor 
number is supported (1). 
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The response to []SVO is 2, since, if it is a valid share, it is always accepted 
before the APL user regains control. (If an unsupported processor is specified, 
the response is 1.) 


The response to [JSVR is the same as the response to (JSVO. 


Being strictly a sequential machine, the only mode of interaction is reversing 
half-duplex; that is, the !/O processor always responds to each action by the 
APL user. Therefore, the access control vector ((JSVC) is always 11 1 1. 


Since there are never any outstanding offers, [JSVQ always returns an empty 
vector. 


@ This is a single user system without an internal clock; therefore, the following 
system variables and functions are not supported: 


LTS — Time stamp 

(IAI — Accounting information 
Q}TT — Terminal type 

KJUL — User list 

[JDL — Delay 


@ The I-beam functions have been replaced with system variables or system func- 
tions and are not supported. 


@ Catenation using semicolons has been replaced by format, but it is still supported 
on the 5100. 
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Data can be exchanged between APL and BASIC or other systems via commun- 
ications; therefore, the following characters have been added to the APL char- 
acter set: 


$, #, @, & 7, %, “ 


The display screen is 64 characters wide; therefore, the initial values for [JPW 
and [JPP system variables are 64 and 5 instead of 120 and 10. 


If the print width is altered to something greater than 64, any output that ex- 
ceeds 64 characters is wrapped to another line on the display screen. 


Bare ((]) output followed by bare ([]) input yields a different reply. For 
APLSYV, the ["] input is prefixed by the same number of blanks as the previous 
[) output. For 5100 APL, the ["} input is prefixed by the previous [] output. 
(See Chapter 6 for more information on bare output followed by bare input.) 


The display screen provides the ability to edit lines of data directly; therefore, 
the following changes were made to function definition: 


(NG ~ Now displays line N in the display screen lines 1 and O for 
editing. 

[NOM] — Has the same result as [NJ]; the M is erased when execute is 
pressed. 

[AN] — Allows line N to be deleted. N must be a single line number. 


The use of the ATTN key to delete a line works, but only in function de- 
finition mode, not while entering function definition mode. 


To prevent problems when displaying or editing statements in a user-defined 
function, the print width ([JPW) is automatically set to 390 when the 5100 
is in function definition mode. The print width automatically returns to its 
previous setting when the function definition is closed. 


There is only limited editing space; therefore, function statements that are 
greater than 115 characters cannot be edited, and the message 
LINE TOO LONG is displayed. 


@ The 5100 will insert a quote if an uneven number of quotes is entered. 
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IBM is grateful to the American National Standards 
Institute (ANSI) for permission to reprint its definitions 
from the American National Standard Vocabulary for 
Information Processing (Copyright © 1970 by American 
National Standards Institute, Incorporated), which was 
prepared by Subcommittee X3K5 on Terminology and 
Glossary of the American National Standards Committee 
X3. 


ANSI definitions are identified by an asterisk. An asterisk 
to the right of the term indicates that the entire entry is 
reprinted from the American National Standard Vocabulary 
for Information Processing; where definitions from other 
sources are included in the entry, ANSI definitions are iden- 
tified by an asterisk to the right of the item number. 


active referent: The usage of a name that was most recently 
localized, or the global usage if the name is not localized. 


active workspace: A part of internal storage where data and 
user-defined functions are stored and calculations are 
performed. 


ADD operation: Using a shared variable to add informa- 
tion to an existing data file. 


alphameric keys: The keys on the left side of the keyboard 
that are arranged similar to a typewriter keyboard. 


APL internal data format: See internal data format. 
arguments: Data supplied to APL functions. 

array: A collection of data that can range from a single 
item to a multidimensional data configuration. Each ele- 
ment of an array must be the same type as the other ele- 


ments (all characters, all numeric, or all logical). 


assign: To use the <« (assignment arrow) to associate a 
name with a value. 


available storage: The number of unused 1024-byte blocks 
of storage in a file on tape. 


Glossary 


bare output: To display output without the cursor return- 
ing to the next line. 


branch instruction: An instruction that modifies the nor- 
mal order of execution indicated by the statement mem- 
bers. Branch instructions always begin with a > (branch 
arrow). 


branching: Modifying the normal order of execution indi- 
cated by the statement numbers. 


built-in function: See primitive function. 


byte: A unit of storage. For example, a character takes 
one byte of storage. 


character constant: Characters that do not represent num- 
bers, variables, or functions. Character constants are en- 
closed in single quotes when they are entered (except for 
[input); however, the single quotes do not appear when 
the character constants are displayed. 


command keyword: The name of a system command in- 
cluding the right parenthesis. For example, the command 
keyword for the JMARK command is MARK. 


comment: An instruction or statement that is not to be 
executed. A comment is indicated by a a as the first 
character. 


conditional branch: A branch that is taken only when a 
certain condition is true. 


coordinate: A subset of data elements in an array. For 
example, a matrix has a row coordinate and a column 


coordinate. 


cursor: The flashing character on the display that indicates 
where the next input from the keyboard will be displayed. 
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data file: A file on tape (file type 01, 02, or 08) where 
data was stored using a shared variable. 


defective record: A 512-byte block of storage on tape that 
cannot be read. 


device/file number: Specifies the tape unit and file to be 
used when doing tape input or output operations. 


dual-language machine: A 5100 that can execute either 
APL or BASIC statements. 


dyadic functions: Functions that require two arguments 
(a right and a left argument). 


editing: Modifying an instruction or statement that already 
exists. 


element: The single item of data in an array. 


empty array: A variable that has a zero in its shape vector. 
The array has no (zero) elements. 


execute: To press the EXECUTE key to process data on 
the input line. 


execution: The processing of data. 


execution mode: The mode that is operative when state- 
ments or functions are executed. Contrast with function 
definition mode. 


explicit result: The result of a function that can be used in 
further calculations. The function must contain a result 
variable if it is to have an explicit result. 


file: A specified amount of storage on tape. The tape is 
formatted into files by using the JMARK command. 


file 1D: The name of a file on tape. {f the file contains a 


stored workspace, the file 1D is the same as the stored 
workspace [D. 
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file number: The files on tape are sequentially numbered 
starting from one. 


file type: Identifies the type of data stored ina file. 


function body: Consists of the statements within a user- 
defined function. These statements determine the opera- 
tion(s) performed by the function. 


function definition: Defining a new function (a user- 
defined function) to solve a problem. 


function definition mode: The mode that is used when 
defining or editing user-defined functions. The V symbol 
is used to change the mode of operation. Contrast with 
execution mode. 


function header: Defines the function name, number of 
arguments, local names, and whether or not the function 
will have an explicit result. 


general interchange data file: The data in the file is in the 
general interchange format. 


general interchange data format: The data consists of all 
character scalars or vectors. 


global names: The value associated with these names can 
be used within or outside of a user-defined function unless 
the name has been made local to a user-defined function 
that is executing, suspended, or pendent. Contrast with 
local names. 


identity element: The value that generates a result equal 
to the other argument. 


IN operation: Using a shared variable to write information 
into a data file. 


index entry [1]: (1) A value or values enclosed in brackets 
that select(s) certain elements from an array. (2) A vaiue 
enclosed in brackets that determines the coordinate of an 
array to be acted on by a primitive mixed function. 


es 


index origin: Either 0 or 1 and is the lowest value of an index. 


The index origin is set to 1 in a clear workspace and can be 
changed by using the []!O system variable. 


input: Information entered from the keyboard or read 
from tape using a shared variable. 


input line: Consists of the 128 positions on lines. 0 and 1 
of the display screen. Any information on the input line 
will be processed when the EXECUTE key is pressed. 


instruction: A function or series of functions to be 
performed. 


integer: A whole number. 


interactive function: A user-defined function that requests 
input from the keyboard as it executes. 


interchange data file: The data in the file is in the inter- 
change data format. 


interchange data format: The data consists of all character 
scalars or vectors. 


internal data file: The data in the file is in the internal 
data format. 


internal data format: The format in which the data is stored 
in the 5100. 


keyword: See command keyword. 


labels: Names that are placed on statements in a user- 
defined function for use in branching. 


latent referent: The usage of a name that has been made 
local to a more recently called function. The value for that 
usage Cannot be used or set. 


length: (1) The length of a vector is the number of ele- 
ments in the vector. (2) The length of a coordinate of 
other arrays is the number of items specified by that coor- 
dinate. For example, a matrix has a row coordinate with 
the length of 2, therefore, the matrix has two rows. 


library: A tape cartridge where data is stored for future 
use. 


local name: A name that is contained in the function 
header and has a value only during the execution of that 
user-defined function. 

locked function: A function that cannot be revised or dis- 
played in any way. The opening or closing V was over- 


struck witha ~. 


logical data: (Boolean data) Data that consists of all ones 
and zeros. 


matrix: A collection of data arranged in rows and columns. 


mixed function: The results of mixed functions may 
differ from the arguments in both rank and shape. 


monadic functions: Functions that require one argument. 
The argument must be to the right of the function symbol. 


multidimensional array: An array that has two or more 
coordinates. 


n-rank array: An array that has more than two coordin- 
ates (a rank of more than 2). 


niladic function: A user-defined function that does not 
require any arguments. 


numeric keys: The keys on the right side of the keyboard 
that are arranged similar to a calculator keyboard. 


object: A user-defined function or variable name. 


Operators: Apply one or more dyadic primitive scalar func- 
tions to arrays. 


OUT operation: Using a shared variable to read informa- 
tion from a data file. 
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output: The results of statements processed by the 5100. 


overstruck character: A character formed by entering one 
character, backspacing, and entering another character. 
Only certain combinations of characters can form over- 
struck characters. 


parameter: (1) Information needed by a system command 
(such as device/file number). (2) information required to 
open a data file or specify printer output. 


password: A sequence of characters that must be matched 
before the contents of a stored workspace can be loaded or 


copied into the active workspace. 


pendent function: Any function in the state indicator list 
that is not a suspended function. 


physical record: A 512-byte block of storage on tape. 


plane: The coordinates of an n-rank array other than the 
rows and columns. 


primitive function: The functions that are part of the APL 
language (such as , + - + x). 


PRT operation: Using a shared variable to output data on 
the printer. 


rank: The number of coordinates of an array (p09). 
record: Data assigned to a shared variable. 

result variable: A variable to the left of the assignment 
arrow in the function header where the results of the func- 
tion are temporarily stored for use in further calculations. 
return code: Assigned to a shared variable after a PRT, 


OUT, or ADD operation. This code indicates whether or 
not the operation was successful. 
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scalar: A single data item that does not have a dimension 
(oo =0). 


scalar function: The results of the scalar functions are the 
same shape as the arguments. 


scale: An integer representing the power of ten when 
scaled representation is used. 


scaled representation: Stating a value in a convenient 
range and multiplying it by the appropriate power of ten. 


scroll: Moving the information on the display screen up or 
down. 


shape: The length of each coordinate of an array. 


shared variables: A variable shared by the active workspace 
and the tape or printer. Used to transfer data during IN, 
OUT, ADD, or PRT operations. 


significant digit: * A digit that is needed for a certain pur- 
pose, particularly one that must be kept to preserve a spe- 
cific accuracy or precision. 


single-element array: A single data item that has at least 
one coordinate. For example, a matrix with one row and 
one column. 


state indicator: Contains information on the progress 
(statement number of the statement being executed) of 
user-defined function execution. Can be displayed to show 
all suspended and pendent user-defined functions. 


statement: A numbered instruction within a user-defined 
function. 


statement number: The number of a statement within a 
user-defined function. 


stop control (SA): Stopping execution of a user-defined 
function before the execution of a specified statement. 


stop vector: Specifies the statements when using stop 
control. 


stored workspace: The contents of the active workspace 
stored on tape. 


suspended: See suspended function. 

suspended execution: See suspended function. 

suspended function: Execution has stopped because of an 
error condition, ATTN being pressed, or stop control being 


used. 


system commands: Are used to manage the active workspace 
and tape or printer operations. 


system functions: Are used to change or provide informa- 
tion about the system. 


system operation: Processing input data. 


system variable: Provides controls for the system and infor- 
mation about the system to the user. 


trace contro! (TA): Displaying the results of specified 
statements during the execution of a user-defined function. 


trace vector: Specifies the statements when using trace 
control. 


transferring data: Using a shared variable to write data to 
tape, read data from tape, or output data to the printer. 


user-defined functions: New functions defined using the 
primitive functions. See function definition mode. 


variable name: A name associated with the value of a 
variable, 


variables: Data stored in the 5100. 


vector: An array with one dimension (op = 1). 


workspace: See active workspace. 


workspace available: The amount of unused storage 
(number of unused bytes) in the active workspace. 


workspace ID: A name given to the contents of the active 
workspace. A stored workspace has the same name as the 
active workspace when the contents of the active work- 
space were written to tape. 
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display screen control 5 
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execute function @ 107 

execute key 7 

executes the argument 107 
execution mode 134 

expand arguments 82 

expand function \ 82 

explicit result 135 

exponential function * 54 

expunge 132 


factorial function! 59 
fallthrough 138 

file header 11,17 

fileID 17 

file number 17 

file size formula 20 

filetype 17 

files 11 

fix function []FX 129 

flashing character 1 

floor function | 51 

form a matrix into a function 129 
format 108 

format a function into a matrix 128 
format function ¢ 108, 146 
formats the tape 19 

formatted tape 11 

forms an array 76 

forms thickness 177 

formula for file size 20 

forward space key 7 

function definition 134 
function definition mode 134 
function definition, reopen 148 
function editing 147 

function header 135, 139 
functions, primitive 32 
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gamma function 59 

general interchange data format 161 
generalized transpose function Q 94 
generate empty arrays 36 
generating arrays 33 

global names 139 

global variable 140 

grade down function P 84 

grade up function A 83 

greater than function > 67 

greater than or equal to function > 70 


hold key 6,9 


ID = (filei1D) 160 
identity elements 111 
IMF 22 
IN operation 160, 163 
index entry 
decimal 79 
integer: 78 
index entry [I] 75 
index entry assumed 75 
index generator functionl 88 
index of function 1 88 
index of specified elements 88 
index origin IO 125 
index values 
in ascending order 83 
in descending order 84 
indexing 32, 39 
indicate the sign 46 
indicator lights 
process check 9 
in process 9 
indices 34 
information printed 9 
inner product operator 113 
input 1 
input line 6 
input, processed 7 
insert characters 8 
insert forms, printer 175 
insert statements 148 
installation procedure 
auxiliary tape unit 196 
printer 198 
5100 191 
integers 172 
interactive functions 144 
interchange data format 161,163 
interchanges the coordinates of the argument 


94 


) 


internal checks 4 

internal data format 161- 
internal machine fix (IMF) 22 
interrupted function 155 
invert a nonsingular matrix 105 


join two arrays 37,78 
join two items 37,78 


keyboard 6 
keys 6 
keyword 7 


labels 137 

laminate function, 77,79 
language in operation 4 

larger of two arguments 50 

last valid statement number 149 
latent expression [JLX 126 
latent referent 142 

least squares solution 106 
length of the output line 126 
less than function < 69 

less than or equal to function < 71 
library 11 

light characters 5 

line counter []JLC 126 

load a stored workspace into the active workspace 19 
local function 131 

local names 27, 139 

Jocal names, display 142 

local objects 132,172 

local user-defined functions 143 
local variable 139 

locked functions 147 

lag of B to base ‘e’ 55 

log of Btobase A 55 

logarithm function ® 55 

logical data 32, 172 

L32 64 R32 switch 5 


magnitude function | 52 
mark a file unused 16 

matrices 32 

matrix divide function |] 105 
matrix inverse function | 105 
maximum function [ 50 
membership function ¢€ 104 
minimum function | 52 
minus function - 46 

mixed functions 43 


models 171 

monadic 43 

monadic functions 135 
monadic mixed functions 73 
MSG =OFF 161, 165 
multiplier 31 


N-rank array 34 
name classification [JNC 133 
name list []NL 132 
names of the objects in the active workspace 132 
nand function A 65 
natural log function @ 55 
negation function - 45 
negative sign 30 
new coordinate, creating 79 
next farger integer 50 
next smaller integer 51 
niladic functions 135 
nonsingular 105 
nor function V 66 
not equal to function Z 72 
not function ~ 64 
numbers 30 

decimal 172 

whole 172 
numeric keys 6 


objects 12 

opening a file 159 

Operators 43, 111 

or function V 63 

order of execution 122 

other commands that control the system 12 
OUT operation 160,163 

outer product operator °, 116 
output 1 

output line, length 126 
overstruck characters 200 
overview, system 11 


parameters for system commands 13 
parentheses () 122 
pendent functions 156 
physical record 163 
pitimesB 56 

pi times functionO 56 
plane 75 

planning information 188 
plus function+ 44 
portable computer 1 
positioning information 7 
positioning the cursor 7 
power function * 54 
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power on procedure 4 

power ON/OFF switch 4 

power on/off, printer 174 
precision 108 

primitive functions 32, 43 
primitive mixed functions 73 
primitive scalar functions 43 
print data 160 

print information 9 

print input and output 21 

print output 21 

print width [JPW 126 

printer 21,174 

printer characteristics 174 
printer output 158 

printer power on/off switch 174 
printing precision (JPP 125 
process input 7 

processing 6 

processing input 10 

product of AtimesB 47 
product of all positive integers 59 
protect objects 25 

protecting sensitive data 170 
PRT operation 160, 164 
pseudoinverse of a rectangular matrix 


quad[] 120 

quad input 145 

quad quote [] 121 

quad quote input 145 
quotient of Adividedby B 48 


radians 56 

raise Ato the B power 54 
random integer 61 

random link [JRL 126 
random numbers 61,95, 126 
rank 34,42 

ravel function, 77 
reciprocal function + 48 
reduction operator / 111 
remainder 53 

remove bare output 147 
removing sensitive data 170 


reopening function definition 148, 150 


replace ribbon 177 
replace statements 148 


representation of an argument in a specified number system 99 


representation of the class of names 
request input 144 

reshape function 9 33, 76 
residue function | 53 

restart procedure 4 

RESTART switch 5,9 

restart system operation 4 
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result variable 135 

resume execution 155 

retract shared variable 16, 164 

retract the variable name being shared 164 
return codes 162 

REVERSE DISPLAY switch 5 

reverse function d 89 

reverses the coordinates of the argument 93 
reverses the elements of the argument 89 
revising a user-defined function 148 
rewind the tape 26 

ribbon, printer 177 

roll function 2? 61 

rotate function d 91 

rotates the elements of the argument 91 


scalar 32 
scalar functions 43 
scale 31 
scaled representation 31 
scan operator \ 118 
scroll 9 
scrolldown 9 
scrollup 9 
select elements from arguments 81 
sensitive data 170 
shape function 9 75 
shape of anarray 34 
shape of the argument 75 
shared variable 158 
shift key 6 
significant digits displayed 125 
signum function x 46 
SIV display 143 
size of files 18 
smaller of two arguments 52 
solution to one or more sets of linear equations 105 
sort vector 

in ascending order 83 

in descending order 84 
special symbols 120 
specify order of execution 122 
specifying printer output 12, 21,164 
state indicator 27,143, 155 
state indicator with local names 143 
stopcontrol 147, 154 
stop control vector 155 
stop processing 6 
stop system Operation 6 
stop vector 154 
storage capacity 171 
storage considerations 172 
store data 11,30 
structure 76 
subtract 46 
sum of two arguments 44 
suspended function execution 155 
suspended functions 155 
suspended functions, cleared 157 
suspension 155 


| switches 
BASIC/APL 4 
= DISPLAY REGISTERS 5 
. ‘ L3264R32 5 
e POWER ON/OFF 4 
f RESTART 5 
REVERSE DISPLAY 5 
symbols 6 
system command description 


@ 2: commands that contro} the library 12 


other commands that control the system 
system command parameters 
brackets 13 
device/file number 13 
object 13 
; password 13 
‘\ workspace ID 13 
| / system commands 
a control the active workspace 11 
control the library 12 
provide information about the system 12 
other commands 12 
system commands, entering 13 
system commands, parameters 13 
system functions 128 
system malfunction 9 
system operation 4,9 
system overview 11 
systemready 4 
system variables 123 


take elements from an argument 86 
take function + 86 
tape 11 


commands that control the active workspace 


commands that provide information about the system 


tape cartridge 

care 173 

handling 173 
tape error recovery program 22,25 
tape input and output 158 
tape unit, auxiliary 1,13 
terminate printer output 164 
times function x 47 
trace control function 147, 152 
TRACE user-defined function 152 
trace vector 152 
transfer data from tape 160, 163 
transfer datato tape 160, 163 
transferring data 163 
transpose function Q 93 
trigonometric functions 56 
TV monitor adapter 1 
TYPE = 161 


unused space 126 

unused storage 18 

user-defined function, revising 148 
user-defined functions 134 


value expressed in a specified number system 96 
variable name 30, 172 

variables 30 

vectors 32 


workspace available []WA 126 

wrap around 7 

write the active workspace to tape 14, 26 

write the contents of the active workspace to tape 14,26 
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